BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / S / Scientist's Spreadsheet.sit / Scientist's Spreadsheet / Procedures / Useful Procedures < prev
MacBinary | 1987-02-26 | 16.9 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Thu Feb 26 17:27:03 1987, modified Thu Feb 26 17:27:03 1987, creator Macintosh Edit, type ASCII, 16766 bytes "Useful Procedures" , at 0x41fe 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 55 73 65 66 75 6c | 20 50 72 6f 63 65 64 75 |..Useful| Procedu|
|00000010| 72 65 73 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |res.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 00 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 41 7e 00 | 00 01 5c 9c 6a 71 b7 9c |.....A~.|..\.jq..|
|00000060| 6a 71 b7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |jq......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b6 ab 00 00 |........|........|
|00000080| 27 27 20 27 75 73 65 66 | 75 6c 20 53 63 69 65 6e |'' 'usef|ul Scien|
|00000090| 74 69 73 74 73 20 53 70 | 72 65 61 64 73 68 65 65 |tists Sp|readshee|
|000000a0| 74 20 56 32 2e 31 37 20 | 70 72 6f 63 65 64 75 72 |t V2.17 |procedur|
|000000b0| 65 73 2c 20 62 79 20 57 | 69 6c 6c 69 61 6d 20 4d |es, by W|illiam M|
|000000c0| 65 6e 6b 65 27 0d 27 27 | 20 27 43 61 76 65 61 74 |enke'.''| 'Caveat|
|000000d0| 20 45 6d 70 74 6f 72 27 | 0d 0d 0d 6c 61 62 65 6c | Emptor'|...label|
|000000e0| 20 61 72 72 6f 77 0d 27 | 27 20 27 64 72 61 77 73 | arrow.'|' 'draws|
|000000f0| 20 61 6e 20 61 72 72 6f | 77 20 6f 6e 20 74 68 65 | an arro|w on the|
|00000100| 20 67 72 61 70 68 20 77 | 68 65 72 65 20 74 68 65 | graph w|here the|
|00000110| 20 75 73 65 72 20 63 6c | 69 63 6b 73 27 0d 27 27 | user cl|icks'.''|
|00000120| 20 27 61 72 67 75 6d 65 | 6e 74 20 31 20 69 73 20 | 'argume|nt 1 is |
|00000130| 74 68 65 20 61 72 72 6f | 77 20 6c 69 6e 65 20 74 |the arro|w line t|
|00000140| 79 70 65 20 28 73 6f 6c | 69 64 2c 20 62 6f 6c 64 |ype (sol|id, bold|
|00000150| 2c 20 64 6f 74 74 65 64 | 2c 20 64 61 73 68 65 64 |, dotted|, dashed|
|00000160| 29 27 0d 73 65 74 76 61 | 72 20 78 6d 69 6e 73 61 |)'.setva|r xminsa|
|00000170| 76 65 20 40 78 6d 69 6e | 0d 73 65 74 76 61 72 20 |ve @xmin|.setvar |
|00000180| 78 6d 61 78 73 61 76 65 | 20 40 78 6d 61 78 0d 73 |xmaxsave| @xmax.s|
|00000190| 65 74 76 61 72 20 79 6d | 69 6e 73 61 76 65 20 40 |etvar ym|insave @|
|000001a0| 79 6d 69 6e 0d 73 65 74 | 76 61 72 20 79 6d 61 78 |ymin.set|var ymax|
|000001b0| 73 61 76 65 20 40 79 6d | 61 78 0d 79 61 78 69 73 |save @ym|ax.yaxis|
|000001c0| 20 30 20 30 2e 36 0d 78 | 61 78 69 73 20 30 20 31 | 0 0.6.x|axis 0 1|
|000001d0| 0d 63 75 72 73 6f 72 20 | 27 70 69 63 6b 20 68 65 |.cursor |'pick he|
|000001e0| 61 64 20 6f 66 20 61 72 | 72 6f 77 27 0d 73 65 74 |ad of ar|row'.set|
|000001f0| 76 61 72 20 78 20 40 78 | 70 6f 73 0d 73 65 74 76 |var x @x|pos.setv|
|00000200| 61 72 20 79 20 40 79 70 | 6f 73 0d 63 75 72 73 6f |ar y @yp|os.curso|
|00000210| 72 20 27 70 69 63 6b 20 | 74 61 69 6c 20 6f 66 20 |r 'pick |tail of |
|00000220| 61 72 72 6f 77 27 0d 76 | 65 63 74 6f 72 20 40 78 |arrow'.v|ector @x|
|00000230| 20 40 79 20 40 78 70 6f | 73 20 40 79 70 6f 73 20 | @y @xpo|s @ypos |
|00000240| 40 61 72 67 31 0d 76 6d | 20 40 78 20 2d 20 40 78 |@arg1.vm| @x - @x|
|00000250| 70 6f 73 20 3d 20 64 78 | 0d 76 6d 20 40 79 20 2d |pos = dx|.vm @y -|
|00000260| 20 40 79 70 6f 73 20 3d | 20 64 79 0d 76 6d 20 40 | @ypos =| dy.vm @|
|00000270| 64 79 20 2f 20 40 64 78 | 20 3d 20 74 68 65 74 61 |dy / @dx| = theta|
|00000280| 0d 76 66 20 61 74 61 6e | 20 40 74 68 65 74 61 20 |.vf atan| @theta |
|00000290| 74 68 65 74 61 0d 69 66 | 20 40 64 78 20 3e 20 30 |theta.if| @dx > 0|
|000002a0| 20 0d 20 20 20 20 20 20 | 20 20 76 6d 20 33 2e 31 | .      |  vm 3.1|
|000002b0| 34 31 35 39 20 2b 20 40 | 74 68 65 74 61 20 3d 20 |4159 + @|theta = |
|000002c0| 74 68 65 74 61 0d 76 6d | 20 40 74 68 65 74 61 20 |theta.vm| @theta |
|000002d0| 2d 20 30 2e 33 20 3d 20 | 74 68 65 74 61 0d 76 66 |- 0.3 = |theta.vf|
|000002e0| 20 73 69 6e 20 40 74 68 | 65 74 61 20 73 74 0d 76 | sin @th|eta st.v|
|000002f0| 66 20 63 6f 73 20 40 74 | 68 65 74 61 20 63 74 0d |f cos @t|heta ct.|
|00000300| 76 6d 20 40 63 74 20 2a | 20 30 2e 30 34 20 3d 20 |vm @ct *| 0.04 = |
|00000310| 64 78 0d 76 6d 20 40 73 | 74 20 2a 20 30 2e 30 34 |dx.vm @s|t * 0.04|
|00000320| 20 3d 20 64 79 0d 76 6d | 20 40 64 78 20 2b 20 40 | = dy.vm| @dx + @|
|00000330| 78 20 3d 20 78 70 6f 73 | 0d 76 6d 20 40 64 79 20 |x = xpos|.vm @dy |
|00000340| 2b 20 40 79 20 3d 20 79 | 70 6f 73 0d 76 65 63 74 |+ @y = y|pos.vect|
|00000350| 6f 72 20 40 78 20 40 79 | 20 40 78 70 6f 73 20 40 |or @x @y| @xpos @|
|00000360| 79 70 6f 73 20 40 61 72 | 67 31 0d 76 6d 20 40 74 |ypos @ar|g1.vm @t|
|00000370| 68 65 74 61 20 2b 20 30 | 2e 36 20 3d 20 74 68 65 |heta + 0|.6 = the|
|00000380| 74 61 0d 76 66 20 73 69 | 6e 20 40 74 68 65 74 61 |ta.vf si|n @theta|
|00000390| 20 73 74 0d 76 66 20 63 | 6f 73 20 40 74 68 65 74 | st.vf c|os @thet|
|000003a0| 61 20 63 74 0d 76 6d 20 | 40 63 74 20 2a 20 30 2e |a ct.vm |@ct * 0.|
|000003b0| 30 34 20 3d 20 64 78 0d | 76 6d 20 40 73 74 20 2a |04 = dx.|vm @st *|
|000003c0| 20 30 2e 30 34 20 3d 20 | 64 79 0d 76 6d 20 40 64 | 0.04 = |dy.vm @d|
|000003d0| 78 20 2b 20 40 78 20 3d | 20 78 70 6f 73 0d 76 6d |x + @x =| xpos.vm|
|000003e0| 20 40 64 79 20 2b 20 40 | 79 20 3d 20 79 70 6f 73 | @dy + @|y = ypos|
|000003f0| 0d 76 65 63 74 6f 72 20 | 40 78 20 40 79 20 40 78 |.vector |@x @y @x|
|00000400| 70 6f 73 20 40 79 70 6f | 73 20 40 61 72 67 31 0d |pos @ypo|s @arg1.|
|00000410| 78 61 78 69 73 20 40 78 | 6d 69 6e 73 61 76 65 20 |xaxis @x|minsave |
|00000420| 40 78 6d 61 78 73 61 76 | 65 0d 79 61 78 69 73 20 |@xmaxsav|e.yaxis |
|00000430| 40 79 6d 69 6e 73 61 76 | 65 20 40 79 6d 61 78 73 |@yminsav|e @ymaxs|
|00000440| 61 76 65 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 |ave.dele|te varia|
|00000450| 62 6c 65 20 78 6d 69 6e | 73 61 76 65 0d 64 65 6c |ble xmin|save.del|
|00000460| 65 74 65 20 76 61 72 69 | 61 62 6c 65 20 78 6d 61 |ete vari|able xma|
|00000470| 78 73 61 76 65 0d 64 65 | 6c 65 74 65 20 76 61 72 |xsave.de|lete var|
|00000480| 69 61 62 6c 65 20 79 6d | 69 6e 73 61 76 65 0d 64 |iable ym|insave.d|
|00000490| 65 6c 65 74 65 20 76 61 | 72 69 61 62 6c 65 20 79 |elete va|riable y|
|000004a0| 6d 61 78 73 61 76 65 0d | 64 65 6c 65 74 65 20 76 |maxsave.|delete v|
|000004b0| 61 72 69 61 62 6c 65 20 | 78 0d 64 65 6c 65 74 65 |ariable |x.delete|
|000004c0| 20 76 61 72 69 61 62 6c | 65 20 79 0d 64 65 6c 65 | variabl|e y.dele|
|000004d0| 74 65 20 76 61 72 69 61 | 62 6c 65 20 73 74 0d 64 |te varia|ble st.d|
|000004e0| 65 6c 65 74 65 20 76 61 | 72 69 61 62 6c 65 20 63 |elete va|riable c|
|000004f0| 74 0d 64 65 6c 65 74 65 | 20 76 61 72 69 61 62 6c |t.delete| variabl|
|00000500| 65 20 64 78 0d 64 65 6c | 65 74 65 20 76 61 72 69 |e dx.del|ete vari|
|00000510| 61 62 6c 65 20 64 79 0d | 64 65 6c 65 74 65 20 76 |able dy.|delete v|
|00000520| 61 72 69 61 62 6c 65 20 | 74 68 65 74 61 0d 72 65 |ariable |theta.re|
|00000530| 74 75 72 6e 0d 0d 0d 6c | 61 62 65 6c 20 61 75 74 |turn...l|abel aut|
|00000540| 6f 63 6f 72 72 65 6c 61 | 74 69 6f 6e 0d 27 27 20 |ocorrela|tion.'' |
|00000550| 27 61 75 74 6f 63 6f 72 | 72 65 6c 61 74 69 6f 6e |'autocor|relation|
|00000560| 20 6f 66 20 74 69 6d 65 | 20 73 65 72 69 65 73 20 | of time| series |
|00000570| 69 6e 20 63 6f 6c 75 6d | 6e 20 32 27 0d 27 27 20 |in colum|n 2'.'' |
|00000580| 27 63 6f 6c 75 6d 6e 73 | 20 33 20 61 6e 64 20 34 |'columns| 3 and 4|
|00000590| 20 61 72 65 20 75 73 65 | 64 2c 20 61 75 74 6f 63 | are use|d, autoc|
|000005a0| 6f 72 72 65 6c 61 74 69 | 6f 6e 20 72 65 74 75 72 |orrelati|on retur|
|000005b0| 6e 65 64 20 69 6e 20 32 | 27 0d 27 27 20 27 74 68 |ned in 2|'.'' 'th|
|000005c0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 72 6f 77 73 |e number| of rows|
|000005d0| 20 69 6e 20 74 68 65 20 | 74 61 62 6c 65 20 69 73 | in the |table is|
|000005e0| 20 64 6f 75 62 6c 65 64 | 2c 20 73 6f 27 0d 27 27 | doubled|, so'.''|
|000005f0| 20 27 74 68 65 20 74 61 | 62 6c 65 20 61 6c 6c 6f | 'the ta|ble allo|
|00000600| 63 61 74 69 6f 6e 20 6d | 75 73 74 20 62 65 20 73 |cation m|ust be s|
|00000610| 75 66 66 69 63 69 65 6e | 74 6c 79 20 6c 61 72 67 |ufficien|tly larg|
|00000620| 65 27 0d 27 27 20 27 74 | 68 65 20 74 61 62 6c 65 |e'.'' 't|he table|
|00000630| 20 6d 75 73 74 20 62 65 | 20 69 6e 74 65 72 70 6f | must be| interpo|
|00000640| 6c 61 74 65 64 2e 20 20 | 63 6f 6c 20 31 20 69 73 |lated.  |col 1 is|
|00000650| 20 72 65 73 65 74 20 74 | 6f 20 6c 61 67 27 0d 72 | reset t|o lag'.r|
|00000660| 65 66 72 65 73 68 20 66 | 61 6c 73 65 0d 63 6f 6c |efresh f|alse.col|
|00000670| 73 20 34 0d 63 6f 70 79 | 20 63 6f 6c 20 32 20 33 |s 4.copy| col 2 3|
|00000680| 0d 72 65 76 65 72 73 65 | 20 33 20 33 0d 73 65 74 |.reverse| 3 3.set|
|00000690| 76 61 72 20 6c 65 6e 67 | 74 68 20 40 72 6f 77 73 |var leng|th @rows|
|000006a0| 0d 76 6d 20 40 72 6f 77 | 73 20 2b 20 31 20 3d 20 |.vm @row|s + 1 = |
|000006b0| 61 0d 76 6d 20 40 72 6f | 77 73 20 2a 20 32 20 3d |a.vm @ro|ws * 2 =|
|000006c0| 20 62 0d 72 6f 77 73 20 | 40 62 0d 63 6f 6e 73 74 | b.rows |@b.const|
|000006d0| 61 6e 74 20 30 20 32 20 | 40 61 20 40 62 0d 63 6f |ant 0 2 |@a @b.co|
|000006e0| 6e 73 74 61 6e 74 20 30 | 20 33 20 40 61 20 40 62 |nstant 0| 3 @a @b|
|000006f0| 0d 63 6f 6e 76 20 32 20 | 33 20 40 6c 65 6e 67 74 |.conv 2 |3 @lengt|
|00000700| 68 20 34 0d 76 6d 20 2d | 31 2e 30 20 2a 20 40 6c |h 4.vm -|1.0 * @l|
|00000710| 65 6e 67 74 68 20 3d 20 | 61 0d 76 6d 20 40 73 61 |ength = |a.vm @sa|
|00000720| 6d 70 20 2a 20 40 61 20 | 3d 20 61 0d 76 6d 20 40 |mp * @a |= a.vm @|
|00000730| 61 20 2b 20 40 73 61 6d | 70 20 3d 20 61 0d 73 74 |a + @sam|p = a.st|
|00000740| 61 72 74 20 40 61 0d 63 | 6f 70 79 20 63 6f 6c 20 |art @a.c|opy col |
|00000750| 34 20 32 0d 63 6f 6c 73 | 20 32 0d 64 65 6c 65 74 |4 2.cols| 2.delet|
|00000760| 65 20 76 61 72 69 61 62 | 6c 65 20 61 0d 64 65 6c |e variab|le a.del|
|00000770| 65 74 65 20 76 61 72 69 | 61 62 6c 65 20 62 0d 64 |ete vari|able b.d|
|00000780| 65 6c 65 74 65 20 76 61 | 72 69 61 62 6c 65 20 6c |elete va|riable l|
|00000790| 65 6e 67 74 68 0d 72 65 | 74 75 72 6e 0d 0d 0d 6c |ength.re|turn...l|
|000007a0| 61 62 65 6c 20 63 6c 69 | 70 0d 27 27 20 27 63 6c |abel cli|p.'' 'cl|
|000007b0| 69 70 73 20 76 61 6c 75 | 65 73 20 69 6e 20 61 20 |ips valu|es in a |
|000007c0| 63 6f 6c 75 6d 6e 27 0d | 27 27 20 27 61 72 67 75 |column'.|'' 'argu|
|000007d0| 6d 65 6e 74 20 31 3a 20 | 6d 69 6e 69 6d 75 6d 20 |ment 1: |minimum |
|000007e0| 76 61 6c 75 65 27 0d 27 | 27 20 27 61 72 67 75 6d |value'.'|' 'argum|
|000007f0| 65 6e 74 20 32 3a 20 6d | 61 78 69 6d 75 6d 20 76 |ent 2: m|aximum v|
|00000800| 61 6c 75 65 0d 27 27 20 | 27 61 72 67 75 6d 65 6e |alue.'' |'argumen|
|00000810| 74 20 33 3a 20 69 6e 70 | 75 74 20 63 6f 6c 27 0d |t 3: inp|ut col'.|
|00000820| 27 27 20 27 61 72 67 75 | 6d 65 6e 74 20 34 3a 20 |'' 'argu|ment 4: |
|00000830| 6f 75 74 70 75 74 20 63 | 6f 6c 27 0d 72 65 66 72 |output c|ol'.refr|
|00000840| 65 73 68 20 66 61 6c 73 | 65 0d 63 6f 70 79 20 63 |esh fals|e.copy c|
|00000850| 6f 6c 20 40 61 72 67 33 | 20 40 61 72 67 34 0d 66 |ol @arg3| @arg4.f|
|00000860| 6f 72 20 69 20 31 20 40 | 72 6f 77 73 0d 20 20 20 |or i 1 @|rows.   |
|00000870| 20 73 65 74 20 78 20 74 | 61 62 6c 65 20 40 69 20 | set x t|able @i |
|00000880| 40 61 72 67 34 0d 20 20 | 20 20 69 66 20 40 78 20 |@arg4.  |  if @x |
|00000890| 3c 20 40 61 72 67 31 0d | 20 20 20 20 20 20 20 20 |< @arg1.|        |
|000008a0| 74 61 62 6c 65 20 40 69 | 20 40 61 72 67 34 20 40 |table @i| @arg4 @|
|000008b0| 61 72 67 31 0d 20 20 20 | 20 69 66 20 40 78 20 3e |arg1.   | if @x >|
|000008c0| 20 40 61 72 67 32 0d 20 | 20 20 20 20 20 20 20 74 | @arg2. |       t|
|000008d0| 61 62 6c 65 20 40 69 20 | 40 61 72 67 34 20 40 61 |able @i |@arg4 @a|
|000008e0| 72 67 32 0d 20 20 20 20 | 6e 65 78 74 20 69 0d 64 |rg2.    |next i.d|
|000008f0| 65 6c 65 74 65 20 76 61 | 72 69 61 62 6c 65 20 78 |elete va|riable x|
|00000900| 0d 72 65 74 75 72 6e 0d | 0d 0d 6c 61 62 65 6c 20 |.return.|..label |
|00000910| 63 72 6f 73 73 63 6f 72 | 72 65 6c 61 74 69 6f 6e |crosscor|relation|
|00000920| 0d 27 27 20 27 61 75 74 | 6f 63 6f 72 72 65 6c 61 |.'' 'aut|ocorrela|
|00000930| 74 69 6f 6e 20 6f 66 20 | 74 69 6d 65 20 73 65 72 |tion of |time ser|
|00000940| 69 65 73 20 69 6e 20 63 | 6f 6c 75 6d 6e 73 20 32 |ies in c|olumns 2|
|00000950| 20 61 6e 64 20 33 27 0d | 27 27 20 27 63 6f 6c 75 | and 3'.|'' 'colu|
|00000960| 6d 6e 20 34 20 69 73 20 | 75 73 65 64 2c 20 63 72 |mn 4 is |used, cr|
|00000970| 6f 73 73 63 6f 72 72 65 | 6c 61 74 69 6f 6e 20 72 |osscorre|lation r|
|00000980| 65 74 75 72 6e 65 64 20 | 69 6e 20 33 27 0d 27 27 |eturned |in 3'.''|
|00000990| 20 27 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 | 'the nu|mber of |
|000009a0| 72 6f 77 73 20 69 6e 20 | 74 68 65 20 74 61 62 6c |rows in |the tabl|
|000009b0| 65 20 69 73 20 64 6f 75 | 62 6c 65 64 2c 20 73 6f |e is dou|bled, so|
|000009c0| 27 0d 27 27 20 27 74 68 | 65 20 74 61 62 6c 65 20 |'.'' 'th|e table |
|000009d0| 61 6c 6c 6f 63 61 74 69 | 6f 6e 20 6d 75 73 74 20 |allocati|on must |
|000009e0| 62 65 20 73 75 66 66 69 | 63 69 65 6e 74 6c 79 20 |be suffi|ciently |
|000009f0| 6c 61 72 67 65 27 0d 27 | 27 20 27 74 68 65 20 74 |large'.'|' 'the t|
|00000a00| 61 62 6c 65 20 6d 75 73 | 74 20 62 65 20 69 6e 74 |able mus|t be int|
|00000a10| 65 72 70 6f 6c 61 74 65 | 64 2e 20 20 63 6f 6c 20 |erpolate|d.  col |
|00000a20| 31 20 69 73 20 72 65 73 | 65 74 20 74 6f 20 6c 61 |1 is res|et to la|
|00000a30| 67 27 0d 72 65 66 72 65 | 73 68 20 66 61 6c 73 65 |g'.refre|sh false|
|00000a40| 0d 63 6f 6c 73 20 34 0d | 72 65 76 65 72 73 65 20 |.cols 4.|reverse |
|00000a50| 33 20 33 0d 73 65 74 76 | 61 72 20 6c 65 6e 67 74 |3 3.setv|ar lengt|
|00000a60| 68 20 40 72 6f 77 73 0d | 76 6d 20 40 72 6f 77 73 |h @rows.|vm @rows|
|00000a70| 20 2b 20 31 20 3d 20 61 | 0d 76 6d 20 40 72 6f 77 | + 1 = a|.vm @row|
|00000a80| 73 20 2a 20 32 20 3d 20 | 62 0d 72 6f 77 73 20 40 |s * 2 = |b.rows @|
|00000a90| 62 0d 63 6f 6e 73 74 61 | 6e 74 20 30 20 32 20 40 |b.consta|nt 0 2 @|
|00000aa0| 61 20 40 62 0d 63 6f 6e | 73 74 61 6e 74 20 30 20 |a @b.con|stant 0 |
|00000ab0| 33 20 40 61 20 40 62 0d | 63 6f 6e 76 20 32 20 33 |3 @a @b.|conv 2 3|
|00000ac0| 20 40 6c 65 6e 67 74 68 | 20 34 0d 76 6d 20 2d 31 | @length| 4.vm -1|
|00000ad0| 2e 30 20 2a 20 40 6c 65 | 6e 67 74 68 20 3d 20 61 |.0 * @le|ngth = a|
|00000ae0| 0d 76 6d 20 40 73 61 6d | 70 20 2a 20 40 61 20 3d |.vm @sam|p * @a =|
|00000af0| 20 61 0d 76 6d 20 40 61 | 20 2b 20 40 73 61 6d 70 | a.vm @a| + @samp|
|00000b00| 20 3d 20 61 0d 73 74 61 | 72 74 20 40 61 0d 63 6f | = a.sta|rt @a.co|
|00000b10| 70 79 20 63 6f 6c 20 34 | 20 32 0d 63 6f 6c 73 20 |py col 4| 2.cols |
|00000b20| 32 0d 64 65 6c 65 74 65 | 20 76 61 72 69 61 62 6c |2.delete| variabl|
|00000b30| 65 20 61 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 |e a.dele|te varia|
|00000b40| 62 6c 65 20 62 0d 64 65 | 6c 65 74 65 20 76 61 72 |ble b.de|lete var|
|00000b50| 69 61 62 6c 65 20 6c 65 | 6e 67 74 68 0d 72 65 74 |iable le|ngth.ret|
|00000b60| 75 72 6e 0d 0d 0d 6c 61 | 62 65 6c 20 64 72 61 77 |urn...la|bel draw|
|00000b70| 63 75 72 76 65 0d 27 27 | 20 27 64 72 61 77 20 61 |curve.''| 'draw a|
|00000b80| 20 63 75 72 76 65 20 62 | 79 20 63 6c 69 63 6b 69 | curve b|y clicki|
|00000b90| 6e 67 20 74 68 65 20 6d | 6f 75 73 65 20 6f 6e 20 |ng the m|ouse on |
|00000ba0| 74 68 65 20 67 72 61 70 | 68 69 63 73 20 73 63 72 |the grap|hics scr|
|00000bb0| 65 65 6e 27 0d 27 27 20 | 27 70 72 6f 6d 70 74 73 |een'.'' |'prompts|
|00000bc0| 20 66 6f 72 20 69 6e 70 | 75 74 27 0d 72 65 66 72 | for inp|ut'.refr|
|00000bd0| 65 73 68 20 66 61 6c 73 | 65 0d 69 6e 70 75 74 20 |esh fals|e.input |
|00000be0| 61 72 67 31 20 27 65 6e | 74 65 72 20 61 62 63 69 |arg1 'en|ter abci|
|00000bf0| 73 73 61 20 63 6f 6c 75 | 6d 6e 27 0d 69 6e 70 75 |ssa colu|mn'.inpu|
|00000c00| 74 20 61 72 67 32 20 27 | 65 6e 74 65 72 20 6f 72 |t arg2 '|enter or|
|00000c10| 64 69 6e 61 74 65 20 63 | 6f 6c 75 6d 6e 27 0d 69 |dinate c|olumn'.i|
|00000c20| 6e 70 75 74 20 78 6d 69 | 6e 20 27 65 6e 74 65 72 |nput xmi|n 'enter|
|00000c30| 20 74 68 65 20 6d 69 6e | 69 6d 75 6d 20 61 62 73 | the min|imum abs|
|00000c40| 69 63 63 61 20 76 61 6c | 75 65 27 0d 69 6e 70 75 |icca val|ue'.inpu|
|00000c50| 74 20 78 6d 61 78 20 27 | 65 6e 74 65 72 20 74 68 |t xmax '|enter th|
|00000c60| 65 20 6d 61 78 69 6d 75 | 6d 20 61 62 63 69 73 73 |e maximu|m abciss|
|00000c70| 61 20 76 61 6c 75 65 27 | 0d 78 61 78 69 73 20 40 |a value'|.xaxis @|
|00000c80| 78 6d 69 6e 20 40 78 6d | 61 78 0d 69 6e 70 75 74 |xmin @xm|ax.input|
|00000c90| 20 79 6d 69 6e 20 27 65 | 6e 74 65 72 20 74 68 65 | ymin 'e|nter the|
|00000ca0| 20 6d 69 6e 69 6d 75 6d | 20 6f 72 64 69 6e 61 74 | minimum| ordinat|
|00000cb0| 65 20 76 61 6c 75 65 27 | 0d 69 6e 70 75 74 20 79 |e value'|.input y|
|00000cc0| 6d 61 78 20 27 65 6e 74 | 65 72 20 74 68 65 20 6d |max 'ent|er the m|
|00000cd0| 61 78 69 6d 75 6d 20 6f | 72 64 69 6e 61 74 65 20 |aximum o|rdinate |
|00000ce0| 76 61 6c 75 65 27 0d 79 | 61 78 69 73 20 40 79 6d |value'.y|axis @ym|
|00000cf0| 69 6e 20 40 79 6d 61 78 | 0d 63 6c 65 61 72 0d 61 |in @ymax|.clear.a|
|00000d00| 78 65 73 0d 73 65 74 76 | 61 72 20 78 20 30 0d 73 |xes.setv|ar x 0.s|
|00000d10| 65 74 76 61 72 20 79 20 | 30 0d 66 6f 72 20 69 20 |etvar y |0.for i |
|00000d20| 31 20 40 72 6f 77 73 0d | 20 20 20 20 63 75 72 73 |1 @rows.|    curs|
|00000d30| 6f 72 20 27 70 69 63 6b | 20 61 20 70 6f 69 6e 74 |or 'pick| a point|
|00000d40| 27 0d 20 20 20 20 74 61 | 62 6c 65 20 40 69 20 40 |'.    ta|ble @i @|
|00000d50| 61 72 67 31 20 40 78 70 | 6f 73 0d 20 20 20 20 74 |arg1 @xp|os.    t|
|00000d60| 61 62 6c 65 20 40 69 20 | 40 61 72 67 32 20 40 79 |able @i |@arg2 @y|
|00000d70| 70 6f 73 0d 20 20 20 20 | 69 66 20 40 69 20 3c 3e |pos.    |if @i <>|
|00000d80| 20 31 0d 20 20 20 20 20 | 20 20 20 76 65 63 74 6f | 1.     |   vecto|
|00000d90| 72 20 40 78 20 40 79 20 | 40 78 70 6f 73 20 40 79 |r @x @y |@xpos @y|
|00000da0| 70 6f 73 0d 09 09 73 65 | 74 76 61 72 20 78 20 40 |pos...se|tvar x @|
|00000db0| 78 70 6f 73 0d 20 20 20 | 20 73 65 74 76 61 72 20 |xpos.   | setvar |
|00000dc0| 79 20 40 79 70 6f 73 0d | 20 20 20 20 6e 65 78 74 |y @ypos.|    next|
|00000dd0| 20 69 0d 64 65 6c 65 74 | 65 20 76 61 72 69 61 62 | i.delet|e variab|
|00000de0| 6c 65 20 78 0d 64 65 6c | 65 74 65 20 76 61 72 69 |le x.del|ete vari|
|00000df0| 61 62 6c 65 20 79 0d 72 | 65 74 75 72 6e 0d 0d 0d |able y.r|eturn...|
|00000e00| 6c 61 62 65 6c 20 64 72 | 61 77 68 69 73 74 0d 27 |label dr|awhist.'|
|00000e10| 27 20 27 64 72 61 77 73 | 20 61 20 68 69 73 74 6f |' 'draws| a histo|
|00000e20| 67 72 61 6d 27 0d 27 27 | 20 27 61 72 67 75 6d 65 |gram'.''| 'argume|
|00000e30| 6e 74 20 31 20 69 73 20 | 74 68 65 20 63 6f 6c 75 |nt 1 is |the colu|
|00000e40| 6d 6e 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 74 68 |mn conta|ining th|
|00000e50| 65 20 64 61 74 61 27 0d | 27 27 20 27 61 73 73 75 |e data'.|'' 'assu|
|00000e60| 6d 65 73 20 74 68 65 20 | 74 61 62 6c 65 20 69 73 |mes the |table is|
|00000e70| 20 73 65 74 20 75 70 20 | 61 73 20 69 74 20 77 6f | set up |as it wo|
|00000e80| 75 6c 64 20 62 65 20 61 | 66 74 65 72 20 61 20 68 |uld be a|fter a h|
|00000e90| 69 73 74 6f 67 72 61 6d | 20 63 6f 6d 6d 61 6e 64 |istogram| command|
|00000ea0| 27 0d 27 27 20 27 69 6e | 74 65 72 70 6f 6c 61 74 |'.'' 'in|terpolat|
|00000eb0| 65 64 20 74 61 62 6c 65 | 20 6f 6e 6c 79 27 0d 72 |ed table| only'.r|
|00000ec0| 65 66 72 65 73 68 20 66 | 61 6c 73 65 0d 73 63 61 |efresh f|alse.sca|
|00000ed0| 6c 65 20 31 20 40 61 72 | 67 31 0d 63 6c 65 61 72 |le 1 @ar|g1.clear|
|00000ee0| 0d 61 78 65 73 0d 63 6d | 20 40 61 72 67 31 20 2f |.axes.cm| @arg1 /|
|00000ef0| 23 20 32 2e 30 20 3d 20 | 40 61 72 67 31 0d 76 62 |# 2.0 = |@arg1.vb|
|00000f00| 61 72 73 20 31 20 40 61 | 72 67 31 20 40 61 72 67 |ars 1 @a|rg1 @arg|
|00000f10| 31 0d 63 6d 20 40 61 72 | 67 31 20 2a 23 20 32 2e |1.cm @ar|g1 *# 2.|
|00000f20| 30 20 3d 20 40 61 72 67 | 31 0d 72 65 74 75 72 6e |0 = @arg|1.return|
|00000f30| 0d 0d 0d 6c 61 62 65 6c | 20 6c 65 74 74 65 72 0d |...label| letter.|
|00000f40| 27 27 20 27 70 75 74 73 | 20 63 68 61 72 61 63 74 |'' 'puts| charact|
|00000f50| 65 72 20 73 74 72 69 6e | 67 20 69 6e 20 67 72 61 |er strin|g in gra|
|00000f60| 70 68 69 63 73 20 77 69 | 6e 64 6f 77 20 61 74 20 |phics wi|ndow at |
|00000f70| 6d 6f 75 73 65 20 63 6c | 69 63 6b 27 0d 27 27 20 |mouse cl|ick'.'' |
|00000f80| 27 61 72 67 75 6d 65 6e | 74 20 31 3a 20 20 74 68 |'argumen|t 1:  th|
|00000f90| 65 20 73 74 72 69 6e 67 | 27 0d 63 75 72 73 6f 72 |e string|'.cursor|
|00000fa0| 20 27 63 6c 69 63 6b 20 | 77 68 65 72 65 20 79 6f | 'click |where yo|
|00000fb0| 75 20 77 61 6e 74 20 74 | 68 65 20 73 74 72 69 6e |u want t|he strin|
|00000fc0| 67 27 0d 61 6e 6f 74 61 | 74 65 20 40 78 70 6f 73 |g'.anota|te @xpos|
|00000fd0| 20 40 79 70 6f 73 20 40 | 61 72 67 31 0d 72 65 74 | @ypos @|arg1.ret|
|00000fe0| 75 72 6e 0d 0d 0d 6c 61 | 62 65 6c 20 6c 6f 67 70 |urn...la|bel logp|
|00000ff0| 6c 6f 74 0d 27 27 20 27 | 6c 6f 67 2d 6c 6f 67 20 |lot.'' '|log-log |
|00001000| 70 6c 6f 74 27 0d 27 27 | 20 27 70 72 6f 6d 70 74 |plot'.''| 'prompt|
|00001010| 73 20 66 6f 72 20 69 6e | 70 75 74 27 0d 69 6e 70 |s for in|put'.inp|
|00001020| 75 74 20 78 63 6f 6c 20 | 27 61 62 63 69 73 73 61 |ut xcol |'abcissa|
|00001030| 20 63 6f 6c 3f 20 27 0d | 69 6e 70 75 74 20 6c 65 | col? '.|input le|
|00001040| 66 74 20 27 6c 65 66 74 | 20 70 6f 77 65 72 20 6f |ft 'left| power o|
|00001050| 66 20 74 65 6e 27 0d 69 | 6e 70 75 74 20 77 69 64 |f ten'.i|nput wid|
|00001060| 74 68 20 27 6e 75 6d 62 | 65 72 20 6f 66 20 64 65 |th 'numb|er of de|
|00001070| 63 61 64 65 73 3f 20 27 | 0d 76 6d 20 40 6c 65 66 |cades? '|.vm @lef|
|00001080| 74 20 2b 20 40 77 69 64 | 74 68 20 3d 20 72 69 67 |t + @wid|th = rig|
|00001090| 68 74 0d 79 61 78 69 73 | 20 40 6c 65 66 74 20 40 |ht.yaxis| @left @|
|000010a0| 72 69 67 68 74 0d 69 6e | 70 75 74 20 79 63 6f 6c |right.in|put ycol|
|000010b0| 20 27 6f 72 64 69 6e 61 | 74 65 20 63 6f 6c 3f 20 | 'ordina|te col? |
|000010c0| 27 0d 69 6e 70 75 74 20 | 74 6f 70 20 27 74 6f 70 |'.input |top 'top|
|000010d0| 20 70 6f 77 65 72 20 6f | 66 20 74 65 6e 3f 20 27 | power o|f ten? '|
|000010e0| 0d 69 6e 70 75 74 20 68 | 65 69 67 68 74 20 27 6e |.input h|eight 'n|
|000010f0| 75 6d 62 65 72 20 6f 66 | 20 64 65 63 61 64 65 73 |umber of| decades|
|00001100| 27 0d 76 6d 20 40 74 6f | 70 20 2d 20 40 68 65 69 |'.vm @to|p - @hei|
|00001110| 67 68 74 20 3d 20 62 6f | 74 74 6f 6d 0d 69 6e 70 |ght = bo|ttom.inp|
|00001120| 75 74 20 73 79 6d 62 6f | 6c 20 27 70 6c 6f 74 74 |ut symbo|l 'plott|
|00001130| 69 6e 67 20 73 79 6d 62 | 6f 6c 3f 20 27 0d 69 6e |ing symb|ol? '.in|
|00001140| 70 75 74 20 61 78 65 73 | 20 27 70 6c 6f 74 20 61 |put axes| 'plot a|
|00001150| 78 65 73 3f 20 79 20 6f | 72 20 6e 27 0d 78 61 78 |xes? y o|r n'.xax|
|00001160| 69 73 20 40 6c 65 66 74 | 20 40 72 69 67 68 74 0d |is @left| @right.|
|00001170| 79 61 78 69 73 20 40 62 | 6f 74 74 6f 6d 20 40 74 |yaxis @b|ottom @t|
|00001180| 6f 70 0d 69 66 20 40 61 | 78 65 73 20 73 3d 20 79 |op.if @a|xes s= y|
|00001190| 20 32 38 0d 63 6c 65 61 | 72 0d 76 65 63 74 6f 72 | 28.clea|r.vector|
|000011a0| 20 40 6c 65 66 74 20 40 | 62 6f 74 74 6f 6d 20 40 | @left @|bottom @|
|000011b0| 6c 65 66 74 20 40 74 6f | 70 0d 76 65 63 74 6f 72 |left @to|p.vector|
|000011c0| 20 40 6c 65 66 74 20 40 | 62 6f 74 74 6f 6d 20 40 | @left @|bottom @|
|000011d0| 72 69 67 68 74 20 40 62 | 6f 74 74 6f 6d 0d 76 6d |right @b|ottom.vm|
|000011e0| 20 40 79 6d 61 78 20 2d | 20 40 79 6d 69 6e 20 3d | @ymax -| @ymin =|
|000011f0| 20 79 31 0d 76 6d 20 40 | 79 31 20 2f 20 33 30 20 | y1.vm @|y1 / 30 |
|00001200| 3d 20 79 31 0d 76 6d 20 | 40 79 31 20 2a 20 33 20 |= y1.vm |@y1 * 3 |
|00001210| 3d 20 79 32 0d 76 6d 20 | 40 79 6d 69 6e 20 2b 20 |= y2.vm |@ymin + |
|00001220| 40 79 31 20 3d 20 79 31 | 0d 76 6d 20 40 79 6d 69 |@y1 = y1|.vm @ymi|
|00001230| 6e 20 2d 20 40 79 32 20 | 3d 20 79 32 0d 66 6f 72 |n - @y2 |= y2.for|
|00001240| 20 69 20 40 6c 65 66 74 | 20 40 72 69 67 68 74 0d | i @left| @right.|
|00001250| 20 20 20 20 76 65 63 74 | 6f 72 20 40 69 20 40 79 |    vect|or @i @y|
|00001260| 6d 69 6e 20 40 69 20 40 | 79 31 0d 20 20 20 20 76 |min @i @|y1.    v|
|00001270| 6d 20 40 69 20 2a 20 32 | 2e 33 30 32 35 38 35 20 |m @i * 2|.302585 |
|00001280| 3d 20 74 0d 20 20 20 20 | 76 66 20 65 78 70 20 40 |= t.    |vf exp @|
|00001290| 74 20 74 0d 20 20 20 20 | 61 6e 6f 74 61 74 65 20 |t t.    |anotate |
|000012a0| 40 69 20 40 79 32 20 40 | 74 0d 20 20 20 20 6e 65 |@i @y2 @|t.    ne|
|000012b0| 78 74 20 69 0d 76 6d 20 | 40 78 6d 61 78 20 2d 20 |xt i.vm |@xmax - |
|000012c0| 40 78 6d 69 6e 20 3d 20 | 79 31 0d 76 6d 20 40 79 |@xmin = |y1.vm @y|
|000012d0| 31 20 2f 20 33 30 20 3d | 20 79 31 0d 76 6d 20 40 |1 / 30 =| y1.vm @|
|000012e0| 79 31 20 2a 20 35 2e 30 | 20 3d 20 79 32 0d 76 6d |y1 * 5.0| = y2.vm|
|000012f0| 20 40 78 6d 69 6e 20 2b | 20 40 79 31 20 3d 20 79 | @xmin +| @y1 = y|
|00001300| 31 0d 76 6d 20 40 78 6d | 69 6e 20 2d 20 40 79 32 |1.vm @xm|in - @y2|
|00001310| 20 3d 20 79 32 0d 66 6f | 72 20 69 20 40 62 6f 74 | = y2.fo|r i @bot|
|00001320| 74 6f 6d 20 40 74 6f 70 | 0d 20 20 20 20 76 65 63 |tom @top|.    vec|
|00001330| 74 6f 72 20 40 78 6d 69 | 6e 20 40 69 20 40 79 31 |tor @xmi|n @i @y1|
|00001340| 20 40 69 0d 20 20 20 20 | 76 6d 20 40 69 20 2a 20 | @i.    |vm @i * |
|00001350| 32 2e 33 30 32 35 38 35 | 20 3d 20 74 0d 20 20 20 |2.302585| = t.   |
|00001360| 20 76 66 20 65 78 70 20 | 40 74 20 74 0d 20 20 20 | vf exp |@t t.   |
|00001370| 20 61 6e 6f 74 61 74 65 | 20 40 79 32 20 40 69 20 | anotate| @y2 @i |
|00001380| 40 74 0d 20 20 20 20 6e | 65 78 74 20 69 0d 64 65 |@t.    n|ext i.de|
|00001390| 6c 65 74 65 20 76 61 72 | 69 61 62 6c 65 20 74 0d |lete var|iable t.|
|000013a0| 64 65 6c 65 74 65 20 76 | 61 72 69 61 62 6c 65 20 |delete v|ariable |
|000013b0| 79 31 0d 64 65 6c 65 74 | 65 20 76 61 72 69 61 62 |y1.delet|e variab|
|000013c0| 6c 65 20 79 32 0d 73 65 | 74 76 61 72 20 6f 6c 64 |le y2.se|tvar old|
|000013d0| 69 6e 74 65 72 70 20 40 | 69 6e 74 65 72 70 6f 6c |interp @|interpol|
|000013e0| 61 74 65 64 0d 69 66 20 | 40 78 63 6f 6c 20 3d 20 |ated.if |@xcol = |
|000013f0| 31 0d 20 20 20 20 69 6e | 74 65 72 70 6f 6c 61 74 |1.    in|terpolat|
|00001400| 65 64 20 66 61 6c 73 65 | 0d 69 66 20 40 79 63 6f |ed false|.if @yco|
|00001410| 6c 20 3d 20 31 0d 20 20 | 20 20 69 6e 74 65 72 70 |l = 1.  |  interp|
|00001420| 6f 6c 61 74 65 64 20 66 | 61 6c 73 65 0d 63 66 20 |olated f|alse.cf |
|00001430| 6c 6e 20 40 78 63 6f 6c | 20 40 78 63 6f 6c 0d 63 |ln @xcol| @xcol.c|
|00001440| 6d 20 40 78 63 6f 6c 20 | 2f 23 20 32 2e 33 30 32 |m @xcol |/# 2.302|
|00001450| 35 38 35 20 3d 20 40 78 | 63 6f 6c 0d 63 66 20 6c |585 = @x|col.cf l|
|00001460| 6e 20 40 79 63 6f 6c 20 | 40 79 63 6f 6c 0d 63 6d |n @ycol |@ycol.cm|
|00001470| 20 40 79 63 6f 6c 20 2f | 23 20 32 2e 33 30 32 36 | @ycol /|# 2.3026|
|00001480| 20 3d 20 40 79 63 6f 6c | 0d 70 6c 6f 74 20 40 78 | = @ycol|.plot @x|
|00001490| 63 6f 6c 20 40 79 63 6f | 6c 20 40 73 79 6d 62 6f |col @yco|l @symbo|
|000014a0| 6c 0d 63 6d 20 40 78 63 | 6f 6c 20 2a 23 20 32 2e |l.cm @xc|ol *# 2.|
|000014b0| 33 30 32 35 38 35 20 3d | 20 40 78 63 6f 6c 0d 63 |302585 =| @xcol.c|
|000014c0| 66 20 65 78 70 20 40 78 | 63 6f 6c 20 40 78 63 6f |f exp @x|col @xco|
|000014d0| 6c 0d 63 6d 20 40 79 63 | 6f 6c 20 2a 23 20 32 2e |l.cm @yc|ol *# 2.|
|000014e0| 33 30 32 35 38 35 20 3d | 20 40 79 63 6f 6c 0d 63 |302585 =| @ycol.c|
|000014f0| 66 20 65 78 70 20 40 79 | 63 6f 6c 20 40 79 63 6f |f exp @y|col @yco|
|00001500| 6c 0d 69 66 20 40 78 63 | 6f 6c 20 3d 20 31 0d 20 |l.if @xc|ol = 1. |
|00001510| 20 20 20 69 6e 74 65 72 | 70 6f 6c 61 74 65 64 20 |   inter|polated |
|00001520| 40 6f 6c 64 69 6e 74 65 | 72 70 0d 69 66 20 40 79 |@oldinte|rp.if @y|
|00001530| 63 6f 6c 20 3d 20 31 0d | 20 20 20 20 69 6e 74 65 |col = 1.|    inte|
|00001540| 72 70 6f 6c 61 74 65 64 | 20 40 6f 6c 64 69 6e 74 |rpolated| @oldint|
|00001550| 65 72 70 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 |erp.dele|te varia|
|00001560| 62 6c 65 20 6f 6c 64 69 | 6e 74 65 72 70 0d 64 65 |ble oldi|nterp.de|
|00001570| 6c 65 74 65 20 76 61 72 | 69 61 62 6c 65 20 6c 65 |lete var|iable le|
|00001580| 66 74 0d 64 65 6c 65 74 | 65 20 76 61 72 69 61 62 |ft.delet|e variab|
|00001590| 6c 65 20 72 69 67 68 74 | 0d 64 65 6c 65 74 65 20 |le right|.delete |
|000015a0| 76 61 72 69 61 62 6c 65 | 20 74 6f 70 0d 64 65 6c |variable| top.del|
|000015b0| 65 74 65 20 76 61 72 69 | 61 62 6c 65 20 62 6f 74 |ete vari|able bot|
|000015c0| 74 6f 6d 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 |tom.dele|te varia|
|000015d0| 62 6c 65 20 68 65 69 67 | 68 74 0d 64 65 6c 65 74 |ble heig|ht.delet|
|000015e0| 65 20 76 61 72 69 61 62 | 6c 65 20 77 69 64 74 68 |e variab|le width|
|000015f0| 0d 64 65 6c 65 74 65 20 | 76 61 72 69 61 62 6c 65 |.delete |variable|
|00001600| 20 73 79 6d 62 6f 6c 0d | 64 65 6c 65 74 65 20 76 | symbol.|delete v|
|00001610| 61 72 69 61 62 6c 65 20 | 78 63 6f 6c 0d 64 65 6c |ariable |xcol.del|
|00001620| 65 74 65 20 76 61 72 69 | 61 62 6c 65 20 79 63 6f |ete vari|able yco|
|00001630| 6c 0d 72 65 74 75 72 6e | 0d 0d 0d 6c 61 62 65 6c |l.return|...label|
|00001640| 20 6d 6f 76 69 6e 67 61 | 76 65 72 61 67 65 0d 27 | movinga|verage.'|
|00001650| 27 20 27 6d 6f 76 69 6e | 67 20 61 76 65 72 61 67 |' 'movin|g averag|
|00001660| 65 20 77 69 74 68 20 63 | 65 6e 74 65 72 65 64 20 |e with c|entered |
|00001670| 74 72 69 61 6e 67 75 61 | 6c 61 72 20 61 76 65 72 |triangua|lar aver|
|00001680| 61 67 69 6e 67 20 6f 70 | 65 72 61 74 6f 72 27 0d |aging op|erator'.|
|00001690| 27 27 20 27 70 6f 69 6e | 74 73 20 6f 66 66 20 65 |'' 'poin|ts off e|
|000016a0| 6e 64 20 6f 66 20 73 69 | 67 6e 61 6c 20 61 73 73 |nd of si|gnal ass|
|000016b0| 75 6d 65 64 20 74 6f 20 | 62 65 20 7a 65 72 6f 27 |umed to |be zero'|
|000016c0| 0d 27 27 20 27 70 72 6f | 6d 70 74 73 20 66 6f 72 |.'' 'pro|mpts for|
|000016d0| 20 69 6e 70 75 74 27 0d | 72 65 66 72 65 73 68 20 | input'.|refresh |
|000016e0| 66 61 6c 73 65 0d 69 66 | 20 40 69 6e 74 65 72 70 |false.if| @interp|
|000016f0| 6f 6c 61 74 65 64 20 73 | 3c 3e 20 74 72 75 65 20 |olated s|<> true |
|00001700| 33 0d 20 20 20 20 70 72 | 6f 6d 70 74 20 27 45 72 |3.    pr|ompt 'Er|
|00001710| 72 6f 72 3a 20 74 61 62 | 6c 65 20 6d 75 73 74 20 |ror: tab|le must |
|00001720| 62 65 20 69 6e 74 65 72 | 70 6f 6c 61 74 65 64 27 |be inter|polated'|
|00001730| 0d 20 20 20 20 62 65 65 | 70 0d 20 20 20 20 72 65 |.    bee|p.    re|
|00001740| 74 75 72 6e 0d 69 6e 70 | 75 74 20 68 61 6c 66 2d |turn.inp|ut half-|
|00001750| 77 69 64 74 68 20 27 68 | 61 6c 66 20 77 69 64 74 |width 'h|alf widt|
|00001760| 68 20 6f 66 20 74 72 69 | 61 6e 67 6c 65 20 69 6e |h of tri|angle in|
|00001770| 20 75 6e 69 74 73 20 6f | 66 20 63 6f 6c 20 31 3f | units o|f col 1?|
|00001780| 27 0d 76 6d 61 74 68 20 | 40 68 61 6c 66 2d 77 69 |'.vmath |@half-wi|
|00001790| 64 74 68 20 2f 20 40 73 | 61 6d 70 20 3d 20 68 61 |dth / @s|amp = ha|
|000017a0| 6c 66 2d 77 69 64 74 68 | 0d 76 66 75 6e 63 74 69 |lf-width|.vfuncti|
|000017b0| 6f 6e 20 69 6e 74 20 40 | 68 61 6c 66 2d 77 69 64 |on int @|half-wid|
|000017c0| 74 68 20 40 68 61 6c 66 | 2d 77 69 64 74 68 0d 70 |th @half|-width.p|
|000017d0| 72 6f 6d 70 74 20 27 68 | 61 6c 66 20 77 69 64 74 |rompt 'h|alf widt|
|000017e0| 68 20 3d 20 27 20 40 68 | 61 6c 66 2d 77 69 64 74 |h = ' @h|alf-widt|
|000017f0| 68 20 27 20 73 61 6d 70 | 6c 65 73 27 0d 76 6d 61 |h ' samp|les'.vma|
|00001800| 74 68 20 40 68 61 6c 66 | 2d 77 69 64 74 68 20 2a |th @half|-width *|
|00001810| 20 40 73 61 6d 70 20 3d | 20 68 65 69 67 68 74 0d | @samp =| height.|
|00001820| 76 6d 61 74 68 20 31 20 | 2f 20 40 68 65 69 67 68 |vmath 1 |/ @heigh|
|00001830| 74 20 3d 20 68 65 69 67 | 68 74 0d 69 6e 70 75 74 |t = heig|ht.input|
|00001840| 20 69 6e 70 75 74 2d 63 | 6f 6c 20 27 69 6e 70 75 | input-c|ol 'inpu|
|00001850| 74 20 63 6f 6c 75 6d 6e | 3f 27 0d 69 6e 70 75 74 |t column|?'.input|
|00001860| 20 6f 75 74 70 75 74 2d | 63 6f 6c 20 27 6f 75 74 | output-|col 'out|
|00001870| 70 75 74 20 63 6f 6c 75 | 6d 6e 3f 27 0d 69 6e 70 |put colu|mn?'.inp|
|00001880| 75 74 20 74 65 6d 70 2d | 63 6f 6c 20 27 74 65 6d |ut temp-|col 'tem|
|00001890| 70 6f 72 61 72 79 20 72 | 65 73 75 6c 74 20 63 6f |porary r|esult co|
|000018a0| 6c 75 6d 6e 3f 27 0d 63 | 6f 70 79 20 63 6f 6c 20 |lumn?'.c|opy col |
|000018b0| 40 69 6e 70 75 74 2d 63 | 6f 6c 20 40 6f 75 74 70 |@input-c|ol @outp|
|000018c0| 75 74 2d 63 6f 6c 0d 63 | 6f 6e 73 74 61 6e 74 20 |ut-col.c|onstant |
|000018d0| 40 68 65 69 67 68 74 20 | 40 74 65 6d 70 2d 63 6f |@height |@temp-co|
|000018e0| 6c 20 31 20 40 68 61 6c | 66 2d 77 69 64 74 68 0d |l 1 @hal|f-width.|
|000018f0| 63 6f 6e 76 6f 6c 76 65 | 20 40 6f 75 74 70 75 74 |convolve| @output|
|00001900| 2d 63 6f 6c 20 40 74 65 | 6d 70 2d 63 6f 6c 20 40 |-col @te|mp-col @|
|00001910| 68 61 6c 66 2d 77 69 64 | 74 68 20 40 6f 75 74 70 |half-wid|th @outp|
|00001920| 75 74 2d 63 6f 6c 0d 72 | 65 76 65 72 73 65 20 40 |ut-col.r|everse @|
|00001930| 6f 75 74 70 75 74 2d 63 | 6f 6c 20 40 6f 75 74 70 |output-c|ol @outp|
|00001940| 75 74 2d 63 6f 6c 0d 63 | 6f 6e 76 6f 6c 76 65 20 |ut-col.c|onvolve |
|00001950| 40 6f 75 74 70 75 74 2d | 63 6f 6c 20 40 74 65 6d |@output-|col @tem|
|00001960| 70 2d 63 6f 6c 20 40 68 | 61 6c 66 2d 77 69 64 74 |p-col @h|alf-widt|
|00001970| 68 20 40 6f 75 74 70 75 | 74 2d 63 6f 6c 0d 72 65 |h @outpu|t-col.re|
|00001980| 76 65 72 73 65 20 40 6f | 75 74 70 75 74 2d 63 6f |verse @o|utput-co|
|00001990| 6c 20 40 6f 75 74 70 75 | 74 2d 63 6f 6c 0d 64 65 |l @outpu|t-col.de|
|000019a0| 6c 65 74 65 20 76 61 72 | 69 61 62 6c 65 20 68 61 |lete var|iable ha|
|000019b0| 6c 66 2d 77 69 64 74 68 | 0d 64 65 6c 65 74 65 20 |lf-width|.delete |
|000019c0| 76 61 72 69 61 62 6c 65 | 20 20 69 6e 70 75 74 2d |variable|  input-|
|000019d0| 63 6f 6c 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 |col.dele|te varia|
|000019e0| 62 6c 65 20 6f 75 74 70 | 75 74 2d 63 6f 6c 0d 64 |ble outp|ut-col.d|
|000019f0| 65 6c 65 74 65 20 76 61 | 72 69 61 62 6c 65 20 74 |elete va|riable t|
|00001a00| 65 6d 70 2d 63 6f 6c 0d | 64 65 6c 65 74 65 20 76 |emp-col.|delete v|
|00001a10| 61 72 69 61 62 6c 65 20 | 68 65 69 67 68 74 0d 72 |ariable |height.r|
|00001a20| 65 74 75 72 6e 0d 0d 0d | 6c 61 62 65 6c 20 6e 61 |eturn...|label na|
|00001a30| 6e 65 72 0d 27 27 20 27 | 79 6f 75 20 63 6c 69 63 |ner.'' '|you clic|
|00001a40| 6b 20 6f 6e 20 74 68 65 | 20 67 72 61 70 68 69 63 |k on the| graphic|
|00001a50| 73 20 73 63 72 65 65 6e | 27 0d 27 27 20 27 74 6f |s screen|'.'' 'to|
|00001a60| 20 63 68 61 6e 67 65 20 | 74 68 65 20 76 61 6c 75 | change |the valu|
|00001a70| 65 20 6f 66 20 61 20 74 | 61 62 6c 65 20 65 6e 74 |e of a t|able ent|
|00001a80| 72 79 20 74 6f 20 4e 61 | 4e 27 0d 27 27 20 27 61 |ry to Na|N'.'' 'a|
|00001a90| 72 67 75 6d 65 6e 74 20 | 31 20 69 73 20 74 68 65 |rgument |1 is the|
|00001aa0| 20 6f 72 64 69 6e 61 74 | 65 20 63 6f 6c 75 6d 6e | ordinat|e column|
|00001ab0| 27 0d 27 27 20 27 69 6e | 74 65 72 70 6f 6c 61 74 |'.'' 'in|terpolat|
|00001ac0| 65 64 20 74 61 62 6c 65 | 73 20 6f 6e 6c 79 27 0d |ed table|s only'.|
|00001ad0| 27 27 20 27 70 72 6f 63 | 65 64 75 72 65 20 6d 75 |'' 'proc|edure mu|
|00001ae0| 73 74 20 62 65 20 61 62 | 6f 72 74 65 64 20 66 72 |st be ab|orted fr|
|00001af0| 6f 6d 20 74 68 65 20 6d | 65 6e 75 27 0d 72 65 66 |om the m|enu'.ref|
|00001b00| 72 65 73 68 20 66 61 6c | 73 65 0d 73 63 61 6c 65 |resh fal|se.scale|
|00001b10| 20 31 20 32 0d 6c 61 62 | 65 6c 20 6e 61 6e 65 72 | 1 2.lab|el naner|
|00001b20| 2d 6c 6f 6f 70 0d 63 6c | 65 61 72 0d 70 6c 6f 74 |-loop.cl|ear.plot|
|00001b30| 20 31 20 40 61 72 67 31 | 0d 63 75 72 73 6f 72 20 | 1 @arg1|.cursor |
|00001b40| 27 70 69 63 6b 20 61 20 | 70 6f 69 6e 74 27 0d 76 |'pick a |point'.v|
|00001b50| 66 20 72 6f 77 20 40 78 | 70 6f 73 20 78 70 6f 73 |f row @x|pos xpos|
|00001b60| 0d 74 61 62 6c 65 20 40 | 78 70 6f 73 20 40 61 72 |.table @|xpos @ar|
|00001b70| 67 31 20 4e 61 4e 0d 67 | 6f 74 6f 20 6e 61 6e 65 |g1 NaN.g|oto nane|
|00001b80| 72 2d 6c 6f 6f 70 0d 72 | 65 74 75 72 6e 0d 0d 0d |r-loop.r|eturn...|
|00001b90| 6c 61 62 65 6c 20 6e 75 | 6d 62 65 72 70 6c 6f 74 |label nu|mberplot|
|00001ba0| 0d 27 27 20 27 70 6c 6f | 74 73 20 64 61 74 61 20 |.'' 'plo|ts data |
|00001bb0| 61 6e 64 20 61 6e 6f 74 | 61 74 65 73 20 74 68 65 |and anot|ates the|
|00001bc0| 20 72 6f 77 20 6e 75 6d | 62 65 72 20 74 6f 20 74 | row num|ber to t|
|00001bd0| 68 65 20 72 69 67 68 74 | 20 6f 66 27 0d 27 27 20 |he right| of'.'' |
|00001be0| 27 65 61 63 68 20 70 6f | 69 6e 74 27 0d 27 27 20 |'each po|int'.'' |
|00001bf0| 27 61 72 67 75 6d 65 6e | 74 20 31 20 69 73 20 74 |'argumen|t 1 is t|
|00001c00| 68 65 20 61 62 63 69 73 | 73 61 20 63 6f 6c 75 6d |he abcis|sa colum|
|00001c10| 6e 27 0d 27 27 20 27 61 | 72 67 75 6d 65 6e 74 20 |n'.'' 'a|rgument |
|00001c20| 32 20 69 73 20 74 68 65 | 20 6f 72 64 69 6e 61 74 |2 is the| ordinat|
|00001c30| 65 20 63 6f 6c 75 6d 6e | 27 0d 27 27 20 27 61 72 |e column|'.'' 'ar|
|00001c40| 67 75 6d 65 6e 74 20 33 | 20 69 73 20 74 68 65 20 |gument 3| is the |
|00001c50| 70 6c 6f 74 74 69 6e 67 | 20 73 79 6d 62 6f 6c 20 |plotting| symbol |
|00001c60| 28 64 65 66 61 75 6c 74 | 73 20 74 6f 20 78 29 27 |(default|s to x)'|
|00001c70| 0d 69 66 20 40 61 72 67 | 33 20 73 3d 20 27 27 0d |.if @arg|3 s= ''.|
|00001c80| 20 20 20 20 73 65 74 76 | 61 72 20 61 72 67 33 20 |    setv|ar arg3 |
|00001c90| 78 0d 70 6c 6f 74 20 40 | 61 72 67 31 20 40 61 72 |x.plot @|arg1 @ar|
|00001ca0| 67 32 20 40 61 72 67 33 | 0d 66 6f 72 20 69 20 31 |g2 @arg3|.for i 1|
|00001cb0| 20 40 72 6f 77 73 0d 20 | 20 20 20 73 65 74 20 78 | @rows. |   set x|
|00001cc0| 20 74 61 62 6c 65 20 40 | 69 20 40 61 72 67 31 0d | table @|i @arg1.|
|00001cd0| 20 20 20 20 73 65 74 20 | 79 20 74 61 62 6c 65 20 |    set |y table |
|00001ce0| 40 69 20 40 61 72 67 32 | 0d 20 20 20 20 61 6e 6f |@i @arg2|.    ano|
|00001cf0| 74 61 74 65 20 40 78 20 | 40 79 20 40 69 0d 20 20 |tate @x |@y @i.  |
|00001d00| 20 20 6e 65 78 74 20 69 | 0d 64 65 6c 65 74 65 20 |  next i|.delete |
|00001d10| 76 61 72 69 61 62 6c 65 | 20 78 0d 64 65 6c 65 74 |variable| x.delet|
|00001d20| 65 20 76 61 72 69 61 62 | 6c 65 20 79 0d 72 65 74 |e variab|le y.ret|
|00001d30| 75 72 6e 0d 0d 0d 0d 6c | 61 62 65 6c 20 70 6c 6f |urn....l|abel plo|
|00001d40| 74 31 0d 27 27 20 27 70 | 6c 6f 74 20 61 6c 6c 20 |t1.'' 'p|lot all |
|00001d50| 63 6f 6c 75 6d 6e 73 20 | 61 67 61 69 6e 73 74 20 |columns |against |
|00001d60| 63 6f 6c 75 6d 6e 20 31 | 27 0d 27 27 20 27 61 72 |column 1|'.'' 'ar|
|00001d70| 67 75 6d 65 6e 74 20 31 | 3a 20 70 6c 6f 74 74 69 |gument 1|: plotti|
|00001d80| 6e 67 20 73 79 6d 62 6f | 6c 27 0d 27 27 20 27 61 |ng symbo|l'.'' 'a|
|00001d90| 72 67 75 6d 65 6e 74 20 | 32 3a 20 6f 70 74 69 6f |rgument |2: optio|
|00001da0| 6e 61 6c 20 73 65 63 6f | 6e 64 20 70 6c 6f 74 74 |nal seco|nd plott|
|00001db0| 69 6e 67 20 73 79 6d 62 | 6f 6c 27 0d 27 27 20 27 |ing symb|ol'.'' '|
|00001dc0| 65 78 61 6d 70 6c 65 3a | 20 20 78 20 20 20 70 6c |example:|  x   pl|
|00001dd0| 6f 74 31 20 20 73 6f 6c | 69 64 20 20 63 69 72 63 |ot1  sol|id  circ|
|00001de0| 6c 65 73 27 0d 27 27 20 | 27 70 6c 6f 74 73 20 65 |les'.'' |'plots e|
|00001df0| 61 63 68 20 63 6f 6c 75 | 6d 6e 20 77 69 74 68 20 |ach colu|mn with |
|00001e00| 73 6f 6c 69 64 20 6c 69 | 6e 65 20 61 6e 64 20 63 |solid li|ne and c|
|00001e10| 69 72 63 6c 65 73 27 0d | 66 6f 72 20 63 6f 6c 75 |ircles'.|for colu|
|00001e20| 6d 6e 20 32 20 40 63 6f | 6c 73 0d 20 20 20 20 70 |mn 2 @co|ls.    p|
|00001e30| 72 6f 6d 70 74 20 27 63 | 6f 6c 75 6d 6e 20 27 20 |rompt 'c|olumn ' |
|00001e40| 40 63 6f 6c 75 6d 6e 20 | 27 20 61 67 61 69 6e 73 |@column |' agains|
|00001e50| 74 20 63 6f 6c 75 6d 6e | 20 31 27 0d 20 20 20 20 |t column| 1'.    |
|00001e60| 63 6c 65 61 72 0d 20 20 | 20 20 73 63 61 6c 65 20 |clear.  |  scale |
|00001e70| 31 20 40 63 6f 6c 75 6d | 6e 0d 20 20 20 20 61 78 |1 @colum|n.    ax|
|00001e80| 65 73 0d 20 20 20 20 70 | 6c 6f 74 20 31 20 40 63 |es.    p|lot 1 @c|
|00001e90| 6f 6c 75 6d 6e 20 40 61 | 72 67 31 0d 20 20 20 20 |olumn @a|rg1.    |
|00001ea0| 69 66 20 40 61 72 67 32 | 20 73 3c 3e 20 27 27 0d |if @arg2| s<> ''.|
|00001eb0| 20 20 20 20 20 20 20 20 | 70 6c 6f 74 20 31 20 40 |        |plot 1 @|
|00001ec0| 63 6f 6c 75 6d 6e 20 40 | 61 72 67 32 0d 20 20 20 |column @|arg2.   |
|00001ed0| 20 69 6e 70 75 74 20 71 | 75 65 73 74 69 6f 6e 20 | input q|uestion |
|00001ee0| 27 70 6c 6f 74 20 6e 65 | 78 74 20 63 6f 6c 75 6d |'plot ne|xt colum|
|00001ef0| 6e 3f 20 79 20 6f 72 20 | 6e 27 0d 20 20 20 20 69 |n? y or |n'.    i|
|00001f00| 66 20 40 71 75 65 73 74 | 69 6f 6e 20 73 3d 20 6e |f @quest|ion s= n|
|00001f10| 0d 20 20 20 20 20 20 20 | 20 72 65 74 75 72 6e 0d |.       | return.|
|00001f20| 20 20 20 20 6e 65 78 74 | 20 63 6f 6c 75 6d 6e 0d |    next| column.|
|00001f30| 72 65 74 75 72 6e 0d 0d | 0d 0d 6c 61 62 65 6c 20 |return..|..label |
|00001f40| 70 6c 6f 74 61 6c 6c 0d | 27 27 20 27 70 6c 6f 74 |plotall.|'' 'plot|
|00001f50| 20 61 6c 6c 20 63 6f 6c | 75 6d 6e 73 20 61 67 61 | all col|umns aga|
|00001f60| 69 6e 73 74 65 61 63 68 | 20 6f 74 68 65 72 27 0d |insteach| other'.|
|00001f70| 27 27 20 27 61 72 67 75 | 6d 65 6e 74 20 31 3a 20 |'' 'argu|ment 1: |
|00001f80| 70 6c 6f 74 74 69 6e 67 | 20 73 79 6d 62 6f 6c 27 |plotting| symbol'|
|00001f90| 0d 27 27 20 27 61 72 67 | 75 6d 65 6e 74 20 32 3a |.'' 'arg|ument 2:|
|00001fa0| 20 6f 70 74 69 6f 6e 61 | 6c 20 73 65 63 6f 6e 64 | optiona|l second|
|00001fb0| 20 70 6c 6f 74 74 69 6e | 67 20 73 79 6d 62 6f 6c | plottin|g symbol|
|00001fc0| 27 0d 27 27 20 27 65 78 | 61 6d 70 6c 65 3a 20 20 |'.'' 'ex|ample:  |
|00001fd0| 78 20 20 20 70 6c 6f 74 | 61 6c 6c 20 20 73 6f 6c |x   plot|all  sol|
|00001fe0| 69 64 20 20 63 69 72 63 | 6c 65 73 27 0d 27 27 20 |id  circ|les'.'' |
|00001ff0| 27 70 6c 6f 74 73 20 65 | 61 63 68 20 63 6f 6c 75 |'plots e|ach colu|
|00002000| 6d 6e 20 77 69 74 68 20 | 73 6f 6c 69 64 20 6c 69 |mn with |solid li|
|00002010| 6e 65 20 61 6e 64 20 63 | 69 72 63 6c 65 73 27 0d |ne and c|ircles'.|
|00002020| 76 6d 61 74 68 20 40 63 | 6f 6c 73 20 2d 20 31 20 |vmath @c|ols - 1 |
|00002030| 3d 20 65 6e 64 0d 66 6f | 72 20 78 63 6f 6c 75 6d |= end.fo|r xcolum|
|00002040| 6e 20 31 20 40 65 6e 64 | 0d 76 6d 61 74 68 20 40 |n 1 @end|.vmath @|
|00002050| 78 63 6f 6c 75 6d 6e 20 | 2b 20 31 20 3d 20 62 65 |xcolumn |+ 1 = be|
|00002060| 67 69 6e 0d 66 6f 72 20 | 79 63 6f 6c 75 6d 6e 20 |gin.for |ycolumn |
|00002070| 20 40 62 65 67 69 6e 20 | 40 63 6f 6c 73 0d 20 20 | @begin |@cols.  |
|00002080| 20 20 70 72 6f 6d 70 74 | 20 27 63 6f 6c 75 6d 6e |  prompt| 'column|
|00002090| 20 27 20 40 79 63 6f 6c | 75 6d 6e 20 27 20 61 67 | ' @ycol|umn ' ag|
|000020a0| 61 69 6e 73 74 20 27 20 | 40 78 63 6f 6c 75 6d 6e |ainst ' |@xcolumn|
|000020b0| 0d 20 20 20 20 63 6c 65 | 61 72 0d 20 20 20 20 73 |.    cle|ar.    s|
|000020c0| 63 61 6c 65 20 20 40 78 | 63 6f 6c 75 6d 6e 20 40 |cale  @x|column @|
|000020d0| 79 63 6f 6c 75 6d 6e 0d | 20 20 20 20 61 78 65 73 |ycolumn.|    axes|
|000020e0| 0d 20 20 20 20 70 6c 6f | 74 20 40 78 63 6f 6c 75 |.    plo|t @xcolu|
|000020f0| 6d 6e 20 40 79 63 6f 6c | 75 6d 6e 20 40 61 72 67 |mn @ycol|umn @arg|
|00002100| 31 0d 20 20 20 20 69 66 | 20 40 61 72 67 32 20 73 |1.    if| @arg2 s|
|00002110| 3c 3e 20 27 27 0d 20 20 | 20 20 20 20 20 20 70 6c |<> ''.  |      pl|
|00002120| 6f 74 20 40 78 63 6f 6c | 75 6d 6e 20 40 79 63 6f |ot @xcol|umn @yco|
|00002130| 6c 75 6d 6e 20 40 61 72 | 67 32 0d 20 20 20 20 69 |lumn @ar|g2.    i|
|00002140| 6e 70 75 74 20 71 75 65 | 73 74 69 6f 6e 20 27 6e |nput que|stion 'n|
|00002150| 65 78 74 20 70 6c 6f 74 | 3f 20 79 20 6f 72 20 6e |ext plot|? y or n|
|00002160| 27 0d 20 20 20 20 69 66 | 20 40 71 75 65 73 74 69 |'.    if| @questi|
|00002170| 6f 6e 20 73 3d 20 6e 20 | 33 0d 20 20 20 20 20 20 |on s= n |3.      |
|00002180| 20 20 64 65 6c 65 74 65 | 20 76 61 72 69 61 62 6c |  delete| variabl|
|00002190| 65 20 62 65 67 69 6e 0d | 20 20 20 20 20 20 20 20 |e begin.|        |
|000021a0| 64 65 6c 65 74 65 20 76 | 61 72 69 61 62 6c 65 20 |delete v|ariable |
|000021b0| 65 6e 64 0d 20 20 20 20 | 20 20 20 20 72 65 74 75 |end.    |    retu|
|000021c0| 72 6e 0d 20 20 20 20 6e | 65 78 74 20 79 63 6f 6c |rn.    n|ext ycol|
|000021d0| 75 6d 6e 0d 20 20 20 20 | 6e 65 78 74 20 78 63 6f |umn.    |next xco|
|000021e0| 6c 75 6d 6e 0d 64 65 6c | 65 74 65 20 76 61 72 69 |lumn.del|ete vari|
|000021f0| 61 62 6c 65 20 62 65 67 | 69 6e 0d 64 65 6c 65 74 |able beg|in.delet|
|00002200| 65 20 76 61 72 69 61 62 | 6c 65 20 65 6e 64 0d 72 |e variab|le end.r|
|00002210| 65 74 75 72 6e 0d 0d 0d | 6c 61 62 65 6c 20 70 6f |eturn...|label po|
|00002220| 69 6e 74 65 72 0d 27 27 | 20 27 64 72 61 77 73 20 |inter.''| 'draws |
|00002230| 61 20 6c 61 62 65 6c 65 | 64 20 61 72 72 6f 77 20 |a labele|d arrow |
|00002240| 6f 6e 20 74 68 65 20 67 | 72 61 70 68 20 77 68 65 |on the g|raph whe|
|00002250| 72 65 20 74 68 65 20 75 | 73 65 72 20 63 6c 69 63 |re the u|ser clic|
|00002260| 6b 73 27 0d 27 27 20 27 | 61 72 67 75 6d 65 6e 74 |ks'.'' '|argument|
|00002270| 20 31 20 69 73 20 74 68 | 65 20 63 68 61 72 61 63 | 1 is th|e charac|
|00002280| 74 65 72 20 73 74 72 69 | 6e 67 27 0d 27 27 20 27 |ter stri|ng'.'' '|
|00002290| 61 72 67 75 6d 65 6e 74 | 20 32 20 69 73 20 74 68 |argument| 2 is th|
|000022a0| 65 20 61 72 72 6f 77 20 | 6c 69 6e 65 20 74 79 70 |e arrow |line typ|
|000022b0| 65 20 28 73 6f 6c 69 64 | 2c 20 62 6f 6c 64 2c 20 |e (solid|, bold, |
|000022c0| 64 6f 74 74 65 64 2c 20 | 64 61 73 68 65 64 29 27 |dotted, |dashed)'|
|000022d0| 0d 72 65 66 72 65 73 68 | 20 66 61 6c 73 65 0d 73 |.refresh| false.s|
|000022e0| 65 74 76 61 72 20 78 6d | 69 6e 73 61 76 65 20 40 |etvar xm|insave @|
|000022f0| 78 6d 69 6e 0d 73 65 74 | 76 61 72 20 78 6d 61 78 |xmin.set|var xmax|
|00002300| 73 61 76 65 20 40 78 6d | 61 78 0d 73 65 74 76 61 |save @xm|ax.setva|
|00002310| 72 20 79 6d 69 6e 73 61 | 76 65 20 40 79 6d 69 6e |r yminsa|ve @ymin|
|00002320| 0d 73 65 74 76 61 72 20 | 79 6d 61 78 73 61 76 65 |.setvar |ymaxsave|
|00002330| 20 40 79 6d 61 78 0d 79 | 61 78 69 73 20 30 20 30 | @ymax.y|axis 0 0|
|00002340| 2e 36 0d 78 61 78 69 73 | 20 30 20 31 0d 63 75 72 |.6.xaxis| 0 1.cur|
|00002350| 73 6f 72 20 27 70 69 63 | 6b 20 68 65 61 64 20 6f |sor 'pic|k head o|
|00002360| 66 20 61 72 72 6f 77 27 | 0d 73 65 74 76 61 72 20 |f arrow'|.setvar |
|00002370| 78 20 40 78 70 6f 73 0d | 73 65 74 76 61 72 20 79 |x @xpos.|setvar y|
|00002380| 20 40 79 70 6f 73 0d 63 | 75 72 73 6f 72 20 27 70 | @ypos.c|ursor 'p|
|00002390| 69 63 6b 20 74 61 69 6c | 20 6f 66 20 61 72 72 6f |ick tail| of arro|
|000023a0| 77 27 0d 76 65 63 74 6f | 72 20 40 78 20 40 79 20 |w'.vecto|r @x @y |
|000023b0| 40 78 70 6f 73 20 40 79 | 70 6f 73 20 40 61 72 67 |@xpos @y|pos @arg|
|000023c0| 32 0d 63 6f 6e 63 61 74 | 20 61 72 67 31 20 27 20 |2.concat| arg1 ' |
|000023d0| 27 20 40 61 72 67 31 0d | 61 6e 6f 74 61 74 65 20 |' @arg1.|anotate |
|000023e0| 40 78 70 6f 73 20 40 79 | 70 6f 73 20 40 61 72 67 |@xpos @y|pos @arg|
|000023f0| 31 0d 76 6d 20 40 78 20 | 2d 20 40 78 70 6f 73 20 |1.vm @x |- @xpos |
|00002400| 3d 20 64 78 0d 76 6d 20 | 40 79 20 2d 20 40 79 70 |= dx.vm |@y - @yp|
|00002410| 6f 73 20 3d 20 64 79 0d | 76 6d 20 40 64 79 20 2f |os = dy.|vm @dy /|
|00002420| 20 40 64 78 20 3d 20 74 | 68 65 74 61 0d 76 66 20 | @dx = t|heta.vf |
|00002430| 61 74 61 6e 20 40 74 68 | 65 74 61 20 74 68 65 74 |atan @th|eta thet|
|00002440| 61 0d 69 66 20 40 64 78 | 20 3e 20 30 20 0d 20 20 |a.if @dx| > 0 .  |
|00002450| 20 20 20 20 20 20 76 6d | 20 33 2e 31 34 31 35 39 |      vm| 3.14159|
|00002460| 20 2b 20 40 74 68 65 74 | 61 20 3d 20 74 68 65 74 | + @thet|a = thet|
|00002470| 61 0d 76 6d 20 40 74 68 | 65 74 61 20 2d 20 30 2e |a.vm @th|eta - 0.|
|00002480| 33 20 3d 20 74 68 65 74 | 61 0d 76 66 20 73 69 6e |3 = thet|a.vf sin|
|00002490| 20 40 74 68 65 74 61 20 | 73 74 0d 76 66 20 63 6f | @theta |st.vf co|
|000024a0| 73 20 40 74 68 65 74 61 | 20 63 74 0d 76 6d 20 40 |s @theta| ct.vm @|
|000024b0| 63 74 20 2a 20 30 2e 30 | 34 20 3d 20 64 78 0d 76 |ct * 0.0|4 = dx.v|
|000024c0| 6d 20 40 73 74 20 2a 20 | 30 2e 30 34 20 3d 20 64 |m @st * |0.04 = d|
|000024d0| 79 0d 76 6d 20 40 64 78 | 20 2b 20 40 78 20 3d 20 |y.vm @dx| + @x = |
|000024e0| 78 70 6f 73 0d 76 6d 20 | 40 64 79 20 2b 20 40 79 |xpos.vm |@dy + @y|
|000024f0| 20 3d 20 79 70 6f 73 0d | 76 65 63 74 6f 72 20 40 | = ypos.|vector @|
|00002500| 78 20 40 79 20 40 78 70 | 6f 73 20 40 79 70 6f 73 |x @y @xp|os @ypos|
|00002510| 20 40 61 72 67 32 0d 76 | 6d 20 40 74 68 65 74 61 | @arg2.v|m @theta|
|00002520| 20 2b 20 30 2e 36 20 3d | 20 74 68 65 74 61 0d 76 | + 0.6 =| theta.v|
|00002530| 66 20 73 69 6e 20 40 74 | 68 65 74 61 20 73 74 0d |f sin @t|heta st.|
|00002540| 76 66 20 63 6f 73 20 40 | 74 68 65 74 61 20 63 74 |vf cos @|theta ct|
|00002550| 0d 76 6d 20 40 63 74 20 | 2a 20 30 2e 30 34 20 3d |.vm @ct |* 0.04 =|
|00002560| 20 64 78 0d 76 6d 20 40 | 73 74 20 2a 20 30 2e 30 | dx.vm @|st * 0.0|
|00002570| 34 20 3d 20 64 79 0d 76 | 6d 20 40 64 78 20 2b 20 |4 = dy.v|m @dx + |
|00002580| 40 78 20 3d 20 78 70 6f | 73 0d 76 6d 20 40 64 79 |@x = xpo|s.vm @dy|
|00002590| 20 2b 20 40 79 20 3d 20 | 79 70 6f 73 0d 76 65 63 | + @y = |ypos.vec|
|000025a0| 74 6f 72 20 40 78 20 40 | 79 20 40 78 70 6f 73 20 |tor @x @|y @xpos |
|000025b0| 40 79 70 6f 73 20 40 61 | 72 67 32 0d 78 61 78 69 |@ypos @a|rg2.xaxi|
|000025c0| 73 20 40 78 6d 69 6e 73 | 61 76 65 20 40 78 6d 61 |s @xmins|ave @xma|
|000025d0| 78 73 61 76 65 0d 79 61 | 78 69 73 20 40 79 6d 69 |xsave.ya|xis @ymi|
|000025e0| 6e 73 61 76 65 20 40 79 | 6d 61 78 73 61 76 65 0d |nsave @y|maxsave.|
|000025f0| 64 65 6c 65 74 65 20 76 | 61 72 69 61 62 6c 65 20 |delete v|ariable |
|00002600| 78 6d 69 6e 73 61 76 65 | 0d 64 65 6c 65 74 65 20 |xminsave|.delete |
|00002610| 76 61 72 69 61 62 6c 65 | 20 78 6d 61 78 73 61 76 |variable| xmaxsav|
|00002620| 65 0d 64 65 6c 65 74 65 | 20 76 61 72 69 61 62 6c |e.delete| variabl|
|00002630| 65 20 79 6d 69 6e 73 61 | 76 65 0d 64 65 6c 65 74 |e yminsa|ve.delet|
|00002640| 65 20 76 61 72 69 61 62 | 6c 65 20 79 6d 61 78 73 |e variab|le ymaxs|
|00002650| 61 76 65 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 |ave.dele|te varia|
|00002660| 62 6c 65 20 78 0d 64 65 | 6c 65 74 65 20 76 61 72 |ble x.de|lete var|
|00002670| 69 61 62 6c 65 20 79 0d | 64 65 6c 65 74 65 20 76 |iable y.|delete v|
|00002680| 61 72 69 61 62 6c 65 20 | 73 74 0d 64 65 6c 65 74 |ariable |st.delet|
|00002690| 65 20 76 61 72 69 61 62 | 6c 65 20 63 74 0d 64 65 |e variab|le ct.de|
|000026a0| 6c 65 74 65 20 76 61 72 | 69 61 62 6c 65 20 64 78 |lete var|iable dx|
|000026b0| 0d 64 65 6c 65 74 65 20 | 76 61 72 69 61 62 6c 65 |.delete |variable|
|000026c0| 20 64 79 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 | dy.dele|te varia|
|000026d0| 62 6c 65 20 74 68 65 74 | 61 0d 72 65 74 75 72 6e |ble thet|a.return|
|000026e0| 0d 0d 0d 6c 61 62 65 6c | 20 70 74 0d 27 27 20 27 |...label| pt.'' '|
|000026f0| 64 6f 65 73 20 61 20 63 | 6c 65 61 72 2c 20 73 63 |does a c|lear, sc|
|00002700| 61 6c 65 2c 20 61 78 65 | 73 2c 20 61 6e 64 20 70 |ale, axe|s, and p|
|00002710| 6c 6f 74 27 0d 27 27 20 | 27 73 61 6d 65 20 61 72 |lot'.'' |'same ar|
|00002720| 67 75 6d 65 6e 74 73 20 | 61 73 20 74 68 65 20 70 |guments |as the p|
|00002730| 6c 6f 74 20 63 6f 6d 6d | 61 6e 64 27 0d 27 27 20 |lot comm|and'.'' |
|00002740| 27 61 72 67 75 6d 65 6e | 74 20 31 3a 20 61 62 63 |'argumen|t 1: abc|
|00002750| 69 73 73 61 5f 63 6f 6c | 27 0d 27 27 20 27 61 72 |issa_col|'.'' 'ar|
|00002760| 67 75 6d 65 6e 74 20 32 | 3a 20 6f 72 64 69 6e 61 |gument 2|: ordina|
|00002770| 74 65 20 63 6f 6c 27 0d | 63 6c 65 61 72 0d 73 63 |te col'.|clear.sc|
|00002780| 61 6c 65 20 40 61 72 67 | 31 20 40 61 72 67 32 0d |ale @arg|1 @arg2.|
|00002790| 61 78 65 73 0d 70 6c 6f | 74 20 40 61 72 67 31 20 |axes.plo|t @arg1 |
|000027a0| 40 61 72 67 32 20 40 61 | 72 67 33 0d 72 65 74 75 |@arg2 @a|rg3.retu|
|000027b0| 72 6e 0d 0d 0d 6c 61 62 | 65 6c 20 72 66 0d 6c 61 |rn...lab|el rf.la|
|000027c0| 62 65 6c 20 72 66 75 6e | 63 74 69 6f 6e 0d 27 27 |bel rfun|ction.''|
|000027d0| 20 27 72 6f 77 20 66 75 | 6e 63 74 69 6f 6e 73 2c | 'row fu|nctions,|
|000027e0| 20 6c 69 6b 65 20 63 66 | 75 6e 63 74 69 6f 6e 20 | like cf|unction |
|000027f0| 63 6f 6d 6d 61 6e 64 27 | 0d 27 27 20 27 61 72 67 |command'|.'' 'arg|
|00002800| 75 6d 65 6e 74 20 31 2c | 20 66 75 6e 63 74 69 6f |ument 1,| functio|
|00002810| 6e 20 6e 61 6d 65 27 0d | 27 27 20 27 61 72 67 75 |n name'.|'' 'argu|
|00002820| 6d 65 6e 74 20 32 2c 20 | 69 6e 70 75 74 20 72 6f |ment 2, |input ro|
|00002830| 77 27 0d 27 27 20 27 61 | 72 67 75 6d 65 6e 74 20 |w'.'' 'a|rgument |
|00002840| 33 2c 20 6f 75 74 70 75 | 74 20 72 6f 77 27 0d 72 |3, outpu|t row'.r|
|00002850| 65 66 72 65 73 68 20 66 | 61 6c 73 65 0d 66 6f 72 |efresh f|alse.for|
|00002860| 20 69 20 31 20 40 63 6f | 6c 73 0d 20 20 20 20 73 | i 1 @co|ls.    s|
|00002870| 65 74 20 78 20 74 61 62 | 6c 65 20 40 61 72 67 32 |et x tab|le @arg2|
|00002880| 20 40 69 0d 20 20 20 20 | 76 66 20 40 61 72 67 31 | @i.    |vf @arg1|
|00002890| 20 40 78 20 78 0d 20 20 | 20 20 74 61 62 6c 65 20 | @x x.  |  table |
|000028a0| 20 40 61 72 67 33 20 40 | 69 20 40 78 0d 20 20 20 | @arg3 @|i @x.   |
|000028b0| 20 6e 65 78 74 20 69 0d | 64 65 6c 65 74 65 20 76 | next i.|delete v|
|000028c0| 61 72 69 61 62 6c 65 20 | 78 0d 72 65 74 75 72 6e |ariable |x.return|
|000028d0| 0d 0d 0d 6c 61 62 65 6c | 20 72 6d 0d 6c 61 62 65 |...label| rm.labe|
|000028e0| 6c 20 72 6d 61 74 68 0d | 27 27 20 27 72 6f 77 20 |l rmath.|'' 'row |
|000028f0| 61 72 69 74 68 6d 65 74 | 69 63 2c 20 6c 69 6b 65 |arithmet|ic, like|
|00002900| 20 63 6d 61 74 68 20 63 | 6f 6d 6d 61 6e 64 2c 20 | cmath c|ommand, |
|00002910| 65 78 63 65 70 74 20 6f | 6d 69 74 20 3d 20 73 69 |except o|mit = si|
|00002920| 67 6e 27 0d 27 27 20 27 | 61 72 67 75 6d 65 6e 74 |gn'.'' '|argument|
|00002930| 20 31 2c 20 66 69 72 73 | 74 20 69 6e 70 75 74 20 | 1, firs|t input |
|00002940| 72 6f 77 20 6f 72 20 63 | 6f 6e 73 74 61 6e 74 27 |row or c|onstant'|
|00002950| 0d 27 27 20 27 61 72 67 | 75 6d 65 6e 74 20 32 2c |.'' 'arg|ument 2,|
|00002960| 20 6f 70 65 72 61 74 6f | 72 27 0d 27 27 20 27 61 | operato|r'.'' 'a|
|00002970| 72 67 75 6d 65 6e 74 20 | 33 2c 20 73 65 63 6f 6e |rgument |3, secon|
|00002980| 64 20 69 6e 70 75 74 20 | 72 6f 77 27 0d 27 27 20 |d input |row'.'' |
|00002990| 27 61 72 67 75 6d 65 6e | 74 20 34 2c 20 6f 75 74 |'argumen|t 4, out|
|000029a0| 70 75 74 20 72 6f 77 27 | 0d 72 65 66 72 65 73 68 |put row'|.refresh|
|000029b0| 20 66 61 6c 73 65 0d 69 | 66 20 40 61 72 67 32 20 | false.i|f @arg2 |
|000029c0| 73 3d 20 2b 20 37 0d 20 | 20 20 20 66 6f 72 20 69 |s= + 7. |   for i|
|000029d0| 20 31 20 40 63 6f 6c 73 | 0d 20 20 20 20 20 20 20 | 1 @cols|.       |
|000029e0| 20 73 65 74 20 78 20 74 | 61 62 6c 65 20 40 61 72 | set x t|able @ar|
|000029f0| 67 31 20 40 69 0d 20 20 | 20 20 20 20 20 20 73 65 |g1 @i.  |      se|
|00002a00| 74 20 79 20 74 61 62 6c | 65 20 40 61 72 67 33 20 |t y tabl|e @arg3 |
|00002a10| 40 69 0d 20 20 20 20 20 | 20 20 20 76 6d 20 40 78 |@i.     |   vm @x|
|00002a20| 20 2b 20 40 79 20 3d 20 | 78 0d 20 20 20 20 20 20 | + @y = |x.      |
|00002a30| 20 20 74 61 62 6c 65 20 | 40 61 72 67 34 20 40 69 |  table |@arg4 @i|
|00002a40| 20 40 78 0d 20 20 20 20 | 20 20 20 20 6e 65 78 74 | @x.    |    next|
|00002a50| 20 69 0d 20 20 20 20 67 | 6f 74 6f 20 72 6d 2d 66 | i.    g|oto rm-f|
|00002a60| 69 6e 69 73 68 0d 69 66 | 20 40 61 72 67 32 20 73 |inish.if| @arg2 s|
|00002a70| 3d 20 2d 20 37 0d 20 20 | 20 20 66 6f 72 20 69 20 |= - 7.  |  for i |
|00002a80| 31 20 40 63 6f 6c 73 0d | 20 20 20 20 20 20 20 20 |1 @cols.|        |
|00002a90| 73 65 74 20 78 20 74 61 | 62 6c 65 20 40 61 72 67 |set x ta|ble @arg|
|00002aa0| 31 20 40 69 0d 20 20 20 | 20 20 20 20 20 73 65 74 |1 @i.   |     set|
|00002ab0| 20 79 20 74 61 62 6c 65 | 20 40 61 72 67 33 20 40 | y table| @arg3 @|
|00002ac0| 69 0d 20 20 20 20 20 20 | 20 20 76 6d 20 40 78 20 |i.      |  vm @x |
|00002ad0| 2d 20 40 79 20 3d 20 78 | 0d 20 20 20 20 20 20 20 |- @y = x|.       |
|00002ae0| 20 74 61 62 6c 65 20 40 | 61 72 67 34 20 40 69 20 | table @|arg4 @i |
|00002af0| 40 78 0d 20 20 20 20 20 | 20 20 20 6e 65 78 74 20 |@x.     |   next |
|00002b00| 69 0d 20 20 20 20 67 6f | 74 6f 20 72 6d 2d 66 69 |i.    go|to rm-fi|
|00002b10| 6e 69 73 68 0d 69 66 20 | 40 61 72 67 32 20 73 3d |nish.if |@arg2 s=|
|00002b20| 20 2a 20 37 0d 20 20 20 | 20 66 6f 72 20 69 20 31 | * 7.   | for i 1|
|00002b30| 20 40 63 6f 6c 73 0d 20 | 20 20 20 20 20 20 20 73 | @cols. |       s|
|00002b40| 65 74 20 78 20 74 61 62 | 6c 65 20 40 61 72 67 31 |et x tab|le @arg1|
|00002b50| 20 40 69 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 | @i.    |    set |
|00002b60| 79 20 74 61 62 6c 65 20 | 40 61 72 67 33 20 40 69 |y table |@arg3 @i|
|00002b70| 0d 20 20 20 20 20 20 20 | 20 76 6d 20 40 78 20 2a |.       | vm @x *|
|00002b80| 20 40 79 20 3d 20 78 0d | 20 20 20 20 20 20 20 20 | @y = x.|        |
|00002b90| 74 61 62 6c 65 20 40 61 | 72 67 34 20 40 69 20 40 |table @a|rg4 @i @|
|00002ba0| 78 0d 20 20 20 20 20 20 | 20 20 6e 65 78 74 20 69 |x.      |  next i|
|00002bb0| 0d 20 20 20 20 67 6f 74 | 6f 20 72 6d 2d 66 69 6e |.    got|o rm-fin|
|00002bc0| 69 73 68 0d 69 66 20 40 | 61 72 67 32 20 73 3d 20 |ish.if @|arg2 s= |
|00002bd0| 2f 20 37 0d 20 20 20 20 | 66 6f 72 20 69 20 31 20 |/ 7.    |for i 1 |
|00002be0| 40 63 6f 6c 73 0d 20 20 | 20 20 20 20 20 20 73 65 |@cols.  |      se|
|00002bf0| 74 20 78 20 74 61 62 6c | 65 20 40 61 72 67 31 20 |t x tabl|e @arg1 |
|00002c00| 40 69 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 79 |@i.     |   set y|
|00002c10| 20 74 61 62 6c 65 20 40 | 61 72 67 33 20 40 69 0d | table @|arg3 @i.|
|00002c20| 20 20 20 20 20 20 20 20 | 76 6d 20 40 78 20 2b 20 |        |vm @x + |
|00002c30| 40 79 20 3d 20 78 0d 20 | 20 20 20 20 20 20 20 74 |@y = x. |       t|
|00002c40| 61 62 6c 65 20 40 61 72 | 67 34 20 40 69 20 40 78 |able @ar|g4 @i @x|
|00002c50| 0d 20 20 20 20 20 20 20 | 20 6e 65 78 74 20 69 0d |.       | next i.|
|00002c60| 20 20 20 20 67 6f 74 6f | 20 72 6d 2d 66 69 6e 69 |    goto| rm-fini|
|00002c70| 73 68 0d 69 66 20 40 61 | 72 67 32 20 73 3d 20 2b |sh.if @a|rg2 s= +|
|00002c80| 23 20 36 0d 20 20 20 20 | 66 6f 72 20 69 20 31 20 |# 6.    |for i 1 |
|00002c90| 40 63 6f 6c 73 0d 20 20 | 20 20 20 20 20 20 73 65 |@cols.  |      se|
|00002ca0| 74 20 78 20 74 61 62 6c | 65 20 40 61 72 67 31 20 |t x tabl|e @arg1 |
|00002cb0| 40 69 0d 20 20 20 20 20 | 20 20 20 76 6d 20 40 78 |@i.     |   vm @x|
|00002cc0| 20 2b 20 40 61 72 67 33 | 20 3d 20 78 0d 20 20 20 | + @arg3| = x.   |
|00002cd0| 20 20 20 20 20 74 61 62 | 6c 65 20 40 61 72 67 34 |     tab|le @arg4|
|00002ce0| 20 40 69 20 40 78 0d 20 | 20 20 20 20 20 20 20 6e | @i @x. |       n|
|00002cf0| 65 78 74 20 69 0d 20 20 | 20 20 67 6f 74 6f 20 72 |ext i.  |  goto r|
|00002d00| 6d 2d 66 69 6e 69 73 68 | 0d 69 66 20 40 61 72 67 |m-finish|.if @arg|
|00002d10| 32 20 73 3d 20 2d 23 20 | 36 0d 20 20 20 20 66 6f |2 s= -# |6.    fo|
|00002d20| 72 20 69 20 31 20 40 63 | 6f 6c 73 0d 20 20 20 20 |r i 1 @c|ols.    |
|00002d30| 20 20 20 20 73 65 74 20 | 78 20 74 61 62 6c 65 20 |    set |x table |
|00002d40| 40 61 72 67 31 20 40 69 | 0d 20 20 20 20 20 20 20 |@arg1 @i|.       |
|00002d50| 20 76 6d 20 40 78 20 2d | 20 40 61 72 67 33 20 3d | vm @x -| @arg3 =|
|00002d60| 20 78 0d 20 20 20 20 20 | 20 20 20 74 61 62 6c 65 | x.     |   table|
|00002d70| 20 40 61 72 67 34 20 40 | 69 20 40 78 0d 20 20 20 | @arg4 @|i @x.   |
|00002d80| 20 20 20 20 20 6e 65 78 | 74 20 69 0d 20 20 20 20 |     nex|t i.    |
|00002d90| 67 6f 74 6f 20 72 6d 2d | 66 69 6e 69 73 68 0d 69 |goto rm-|finish.i|
|00002da0| 66 20 40 61 72 67 32 20 | 73 3d 20 2a 23 20 36 0d |f @arg2 |s= *# 6.|
|00002db0| 20 20 20 20 66 6f 72 20 | 69 20 31 20 40 63 6f 6c |    for |i 1 @col|
|00002dc0| 73 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 78 20 |s.      |  set x |
|00002dd0| 74 61 62 6c 65 20 40 61 | 72 67 31 20 40 69 0d 20 |table @a|rg1 @i. |
|00002de0| 20 20 20 20 20 20 20 76 | 6d 20 40 78 20 2a 20 40 |       v|m @x * @|
|00002df0| 61 72 67 33 20 3d 20 78 | 0d 20 20 20 20 20 20 20 |arg3 = x|.       |
|00002e00| 20 74 61 62 6c 65 20 40 | 61 72 67 34 20 40 69 20 | table @|arg4 @i |
|00002e10| 40 78 0d 20 20 20 20 20 | 20 20 20 6e 65 78 74 20 |@x.     |   next |
|00002e20| 69 0d 20 20 20 20 67 6f | 74 6f 20 72 6d 2d 66 69 |i.    go|to rm-fi|
|00002e30| 6e 69 73 68 0d 69 66 20 | 40 61 72 67 32 20 73 3d |nish.if |@arg2 s=|
|00002e40| 20 2f 23 20 36 0d 20 20 | 20 20 66 6f 72 20 69 20 | /# 6.  |  for i |
|00002e50| 31 20 40 63 6f 6c 73 0d | 20 20 20 20 20 20 20 20 |1 @cols.|        |
|00002e60| 73 65 74 20 78 20 74 61 | 62 6c 65 20 40 61 72 67 |set x ta|ble @arg|
|00002e70| 31 20 40 69 0d 20 20 20 | 20 20 20 20 20 76 6d 20 |1 @i.   |     vm |
|00002e80| 40 78 20 2f 20 40 61 72 | 67 33 20 3d 20 78 0d 20 |@x / @ar|g3 = x. |
|00002e90| 20 20 20 20 20 20 20 74 | 61 62 6c 65 20 40 61 72 |       t|able @ar|
|00002ea0| 67 34 20 40 69 20 40 78 | 0d 20 20 20 20 20 20 20 |g4 @i @x|.       |
|00002eb0| 20 6e 65 78 74 20 69 0d | 20 20 20 20 67 6f 74 6f | next i.|    goto|
|00002ec0| 20 72 6d 2d 66 69 6e 69 | 73 68 0d 69 66 20 40 61 | rm-fini|sh.if @a|
|00002ed0| 72 67 32 20 73 3d 20 23 | 2b 20 36 0d 20 20 20 20 |rg2 s= #|+ 6.    |
|00002ee0| 66 6f 72 20 69 20 31 20 | 40 63 6f 6c 73 0d 20 20 |for i 1 |@cols.  |
|00002ef0| 20 20 20 20 20 20 73 65 | 74 20 78 20 74 61 62 6c |      se|t x tabl|
|00002f00| 65 20 40 61 72 67 33 20 | 40 69 0d 20 20 20 20 20 |e @arg3 |@i.     |
|00002f10| 20 20 20 76 6d 20 40 61 | 72 67 31 20 2f 20 40 78 |   vm @a|rg1 / @x|
|00002f20| 20 3d 20 78 0d 20 20 20 | 20 20 20 20 20 74 61 62 | = x.   |     tab|
|00002f30| 6c 65 20 40 61 72 67 34 | 20 40 69 20 40 78 0d 20 |le @arg4| @i @x. |
|00002f40| 20 20 20 20 20 20 20 6e | 65 78 74 20 69 0d 20 20 |       n|ext i.  |
|00002f50| 20 20 67 6f 74 6f 20 72 | 6d 2d 66 69 6e 69 73 68 |  goto r|m-finish|
|00002f60| 0d 69 66 20 40 61 72 67 | 32 20 73 3d 20 23 2d 20 |.if @arg|2 s= #- |
|00002f70| 36 0d 20 20 20 20 66 6f | 72 20 69 20 31 20 40 63 |6.    fo|r i 1 @c|
|00002f80| 6f 6c 73 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |ols.    |    set |
|00002f90| 78 20 74 61 62 6c 65 20 | 40 61 72 67 33 20 40 69 |x table |@arg3 @i|
|00002fa0| 0d 20 20 20 20 20 20 20 | 20 76 6d 20 40 61 72 67 |.       | vm @arg|
|00002fb0| 31 20 2d 20 40 78 20 3d | 20 78 0d 20 20 20 20 20 |1 - @x =| x.     |
|00002fc0| 20 20 20 74 61 62 6c 65 | 20 40 61 72 67 34 20 40 |   table| @arg4 @|
|00002fd0| 69 20 40 78 0d 20 20 20 | 20 20 20 20 20 6e 65 78 |i @x.   |     nex|
|00002fe0| 74 20 69 0d 20 20 20 20 | 67 6f 74 6f 20 72 6d 2d |t i.    |goto rm-|
|00002ff0| 66 69 6e 69 73 68 0d 69 | 66 20 40 61 72 67 32 20 |finish.i|f @arg2 |
|00003000| 73 3d 20 23 2a 20 36 0d | 20 20 20 20 66 6f 72 20 |s= #* 6.|    for |
|00003010| 69 20 31 20 40 63 6f 6c | 73 0d 20 20 20 20 20 20 |i 1 @col|s.      |
|00003020| 20 20 73 65 74 20 78 20 | 74 61 62 6c 65 20 40 61 |  set x |table @a|
|00003030| 72 67 33 20 40 69 0d 20 | 20 20 20 20 20 20 20 76 |rg3 @i. |       v|
|00003040| 6d 20 40 61 72 67 31 20 | 2a 20 40 78 20 3d 20 78 |m @arg1 |* @x = x|
|00003050| 0d 20 20 20 20 20 20 20 | 20 74 61 62 6c 65 20 40 |.       | table @|
|00003060| 61 72 67 34 20 40 69 20 | 40 78 0d 20 20 20 20 20 |arg4 @i |@x.     |
|00003070| 20 20 20 6e 65 78 74 20 | 69 0d 20 20 20 20 67 6f |   next |i.    go|
|00003080| 74 6f 20 72 6d 2d 66 69 | 6e 69 73 68 0d 69 66 20 |to rm-fi|nish.if |
|00003090| 40 61 72 67 32 20 73 3d | 20 23 2f 20 36 0d 20 20 |@arg2 s=| #/ 6.  |
|000030a0| 20 20 66 6f 72 20 69 20 | 31 20 40 63 6f 6c 73 0d |  for i |1 @cols.|
|000030b0| 20 20 20 20 20 20 20 20 | 73 65 74 20 78 20 74 61 |        |set x ta|
|000030c0| 62 6c 65 20 40 61 72 67 | 33 20 40 69 0d 20 20 20 |ble @arg|3 @i.   |
|000030d0| 20 20 20 20 20 76 6d 20 | 40 61 72 67 31 20 2f 20 |     vm |@arg1 / |
|000030e0| 40 78 20 3d 20 78 0d 20 | 20 20 20 20 20 20 20 74 |@x = x. |       t|
|000030f0| 61 62 6c 65 20 40 61 72 | 67 34 20 40 69 20 40 78 |able @ar|g4 @i @x|
|00003100| 0d 20 20 20 20 20 20 20 | 20 6e 65 78 74 20 69 0d |.       | next i.|
|00003110| 20 20 20 20 67 6f 74 6f | 20 72 6d 2d 66 69 6e 69 |    goto| rm-fini|
|00003120| 73 68 0d 70 20 27 6e 6f | 20 73 75 63 68 20 6f 70 |sh.p 'no| such op|
|00003130| 65 72 61 74 6f 72 27 0d | 6c 61 62 65 6c 20 72 6d |erator'.|label rm|
|00003140| 2d 66 69 6e 69 73 68 0d | 64 65 6c 65 74 65 20 76 |-finish.|delete v|
|00003150| 61 72 69 61 62 6c 65 20 | 78 0d 72 65 74 75 72 6e |ariable |x.return|
|00003160| 0d 0d 0d 6c 61 62 65 6c | 20 73 63 72 6f 6c 6c 65 |...label| scrolle|
|00003170| 72 0d 27 27 20 27 73 63 | 72 6f 6c 6c 73 20 74 68 |r.'' 'sc|rolls th|
|00003180| 72 6f 75 67 68 20 61 20 | 6c 6f 6e 67 20 70 6c 6f |rough a |long plo|
|00003190| 74 27 0d 27 27 20 27 79 | 6f 75 20 63 6c 69 63 6b |t'.'' 'y|ou click|
|000031a0| 20 74 68 65 20 6d 6f 75 | 73 65 20 74 6f 20 74 68 | the mou|se to th|
|000031b0| 65 20 72 69 67 68 74 20 | 6f 72 20 6c 65 66 74 20 |e right |or left |
|000031c0| 6f 66 20 63 65 6e 74 65 | 72 20 74 6f 20 73 63 72 |of cente|r to scr|
|000031d0| 6f 6c 6c 27 0d 27 27 20 | 27 61 72 67 75 6d 65 6e |oll'.'' |'argumen|
|000031e0| 74 20 31 20 69 73 20 74 | 68 65 20 6f 72 64 69 6e |t 1 is t|he ordin|
|000031f0| 61 74 65 20 63 6f 6c 75 | 6d 6e 27 0d 27 27 20 27 |ate colu|mn'.'' '|
|00003200| 61 72 67 75 6d 65 6e 74 | 20 32 20 69 73 20 74 68 |argument| 2 is th|
|00003210| 65 20 73 63 72 65 65 6e | 20 77 69 64 74 68 27 0d |e screen| width'.|
|00003220| 27 27 20 27 69 6e 74 65 | 72 70 6f 6c 61 74 65 64 |'' 'inte|rpolated|
|00003230| 20 74 61 62 6c 65 73 20 | 6f 6e 6c 79 27 0d 27 27 | tables |only'.''|
|00003240| 20 27 74 68 69 73 20 70 | 72 6f 63 65 64 75 72 65 | 'this p|rocedure|
|00003250| 20 6d 75 73 74 20 62 65 | 20 61 62 6f 72 74 65 64 | must be| aborted|
|00003260| 20 66 72 6f 6d 20 74 68 | 65 20 6d 65 6e 75 27 0d | from th|e menu'.|
|00003270| 72 65 66 72 65 73 68 20 | 66 61 6c 73 65 0d 73 63 |refresh |false.sc|
|00003280| 61 6c 65 20 31 20 40 61 | 72 67 31 0d 76 6d 20 40 |ale 1 @a|rg1.vm @|
|00003290| 61 72 67 32 20 2b 20 40 | 78 6d 69 6e 20 3d 20 78 |arg2 + @|xmin = x|
|000032a0| 6d 61 78 0d 78 61 78 69 | 73 20 40 78 6d 69 6e 20 |max.xaxi|s @xmin |
|000032b0| 40 78 6d 61 78 0d 76 6d | 20 40 61 72 67 32 20 2a |@xmax.vm| @arg2 *|
|000032c0| 20 30 2e 37 35 20 3d 20 | 61 72 67 32 0d 76 6d 20 | 0.75 = |arg2.vm |
|000032d0| 40 78 6d 61 78 20 2b 20 | 40 78 6d 69 6e 20 3d 20 |@xmax + |@xmin = |
|000032e0| 6d 69 64 64 6c 65 0d 76 | 6d 20 40 6d 69 64 64 6c |middle.v|m @middl|
|000032f0| 65 20 2f 20 32 20 3d 20 | 6d 69 64 64 6c 65 0d 6c |e / 2 = |middle.l|
|00003300| 61 62 65 6c 20 73 63 72 | 6f 6c 6c 65 72 2d 6c 6f |abel scr|oller-lo|
|00003310| 6f 70 0d 20 20 20 20 63 | 6c 65 61 72 0d 20 20 20 |op.    c|lear.   |
|00003320| 20 61 78 65 73 0d 20 20 | 20 20 70 6c 6f 74 20 31 | axes.  |  plot 1|
|00003330| 20 40 61 72 67 31 0d 20 | 20 20 20 63 75 72 73 6f | @arg1. |   curso|
|00003340| 72 20 27 70 69 63 6b 20 | 73 63 72 6f 6c 6c 20 64 |r 'pick |scroll d|
|00003350| 69 72 65 63 74 69 6f 6e | 27 0d 09 20 20 69 66 20 |irection|'..  if |
|00003360| 40 78 70 6f 73 20 3c 20 | 40 6d 69 64 64 6c 65 20 |@xpos < |@middle |
|00003370| 32 0d 20 20 20 20 20 20 | 20 20 76 6d 20 40 78 6d |2.      |  vm @xm|
|00003380| 69 6e 20 2d 20 40 61 72 | 67 32 20 3d 20 78 6d 69 |in - @ar|g2 = xmi|
|00003390| 6e 0d 20 20 20 20 20 20 | 20 20 76 6d 20 40 78 6d |n.      |  vm @xm|
|000033a0| 61 78 20 2d 20 40 61 72 | 67 32 20 3d 20 78 6d 61 |ax - @ar|g2 = xma|
|000033b0| 78 0d 20 20 20 69 66 20 | 40 78 70 6f 73 20 3e 20 |x.   if |@xpos > |
|000033c0| 40 6d 69 64 64 6c 65 20 | 32 0d 20 20 20 20 20 20 |@middle |2.      |
|000033d0| 20 20 76 6d 20 40 78 6d | 69 6e 20 2b 20 40 61 72 |  vm @xm|in + @ar|
|000033e0| 67 32 20 3d 20 78 6d 69 | 6e 0d 20 20 20 20 20 20 |g2 = xmi|n.      |
|000033f0| 20 20 76 6d 20 40 78 6d | 61 78 20 2b 20 40 61 72 |  vm @xm|ax + @ar|
|00003400| 67 32 20 3d 20 78 6d 61 | 78 0d 20 20 20 20 78 61 |g2 = xma|x.    xa|
|00003410| 78 69 73 20 40 78 6d 69 | 6e 20 40 78 6d 61 78 0d |xis @xmi|n @xmax.|
|00003420| 20 20 20 20 76 6d 20 40 | 78 6d 61 78 20 2b 20 40 |    vm @|xmax + @|
|00003430| 78 6d 69 6e 20 3d 20 6d | 69 64 64 6c 65 0d 20 20 |xmin = m|iddle.  |
|00003440| 20 20 76 6d 20 40 6d 69 | 64 64 6c 65 20 2f 20 32 |  vm @mi|ddle / 2|
|00003450| 20 3d 20 6d 69 64 64 6c | 65 0d 20 20 20 20 67 6f | = middl|e.    go|
|00003460| 74 6f 20 73 63 72 6f 6c | 6c 65 72 2d 6c 6f 6f 70 |to scrol|ler-loop|
|00003470| 0d 72 65 74 75 72 6e 0d | 0d 0d 6c 61 62 65 6c 20 |.return.|..label |
|00003480| 73 65 6d 69 6c 6f 67 70 | 6c 6f 74 0d 27 27 20 27 |semilogp|lot.'' '|
|00003490| 73 65 6d 69 2d 6c 6f 67 | 20 70 6c 6f 74 27 0d 27 |semi-log| plot'.'|
|000034a0| 27 20 27 70 72 6f 6d 70 | 74 73 20 66 6f 72 20 69 |' 'promp|ts for i|
|000034b0| 6e 70 75 74 27 0d 69 6e | 70 75 74 20 78 63 6f 6c |nput'.in|put xcol|
|000034c0| 20 27 61 62 63 69 73 73 | 61 20 63 6f 6c 3f 20 27 | 'abciss|a col? '|
|000034d0| 0d 69 6e 70 75 74 20 79 | 63 6f 6c 20 27 6f 72 64 |.input y|col 'ord|
|000034e0| 69 6e 61 74 65 20 63 6f | 6c 3f 20 27 0d 69 6e 70 |inate co|l? '.inp|
|000034f0| 75 74 20 74 6f 70 20 27 | 74 6f 70 20 70 6f 77 65 |ut top '|top powe|
|00003500| 72 20 6f 66 20 74 65 6e | 3f 20 27 0d 69 6e 70 75 |r of ten|? '.inpu|
|00003510| 74 20 68 65 69 67 68 74 | 20 27 6e 75 6d 62 65 72 |t height| 'number|
|00003520| 20 6f 66 20 64 65 63 61 | 64 65 73 27 0d 73 63 61 | of deca|des'.sca|
|00003530| 6c 65 20 40 78 63 6f 6c | 20 40 79 63 6f 6c 0d 76 |le @xcol| @ycol.v|
|00003540| 6d 20 40 74 6f 70 20 2d | 20 40 68 65 69 67 68 74 |m @top -| @height|
|00003550| 20 3d 20 62 6f 74 74 6f | 6d 0d 79 61 78 69 73 20 | = botto|m.yaxis |
|00003560| 40 62 6f 74 74 6f 6d 20 | 40 74 6f 70 0d 69 6e 70 |@bottom |@top.inp|
|00003570| 75 74 20 73 79 6d 62 6f | 6c 20 27 70 6c 6f 74 74 |ut symbo|l 'plott|
|00003580| 69 6e 67 20 73 79 6d 62 | 6f 6c 3f 20 27 0d 69 6e |ing symb|ol? '.in|
|00003590| 70 75 74 20 61 78 65 73 | 20 27 70 6c 6f 74 20 61 |put axes| 'plot a|
|000035a0| 78 65 73 3f 20 79 20 6f | 72 20 6e 27 0d 69 66 20 |xes? y o|r n'.if |
|000035b0| 40 61 78 65 73 20 73 3d | 20 79 20 33 31 0d 63 6c |@axes s=| y 31.cl|
|000035c0| 65 61 72 0d 76 65 63 74 | 6f 72 20 40 78 6d 69 6e |ear.vect|or @xmin|
|000035d0| 20 40 79 6d 69 6e 20 40 | 78 6d 69 6e 20 40 79 6d | @ymin @|xmin @ym|
|000035e0| 61 78 0d 76 65 63 74 6f | 72 20 40 78 6d 69 6e 20 |ax.vecto|r @xmin |
|000035f0| 40 79 6d 69 6e 20 40 78 | 6d 61 78 20 40 79 6d 69 |@ymin @x|max @ymi|
|00003600| 6e 0d 76 6d 20 40 78 6d | 61 78 20 2d 20 40 78 6d |n.vm @xm|ax - @xm|
|00003610| 69 6e 20 3d 20 64 78 0d | 76 6d 20 40 64 78 20 2f |in = dx.|vm @dx /|
|00003620| 20 35 20 3d 20 64 78 0d | 76 6d 20 40 79 6d 61 78 | 5 = dx.|vm @ymax|
|00003630| 20 2d 20 40 79 6d 69 6e | 20 3d 20 79 31 0d 76 6d | - @ymin| = y1.vm|
|00003640| 20 40 79 31 20 2f 20 32 | 30 20 3d 20 79 31 0d 76 | @y1 / 2|0 = y1.v|
|00003650| 6d 20 40 79 31 20 2a 20 | 32 20 3d 20 79 32 0d 76 |m @y1 * |2 = y2.v|
|00003660| 6d 20 40 79 6d 69 6e 20 | 2b 20 40 79 31 20 3d 20 |m @ymin |+ @y1 = |
|00003670| 79 31 0d 76 6d 20 40 79 | 6d 69 6e 20 2d 20 40 79 |y1.vm @y|min - @y|
|00003680| 32 20 3d 20 79 32 0d 73 | 65 74 76 61 72 20 78 20 |2 = y2.s|etvar x |
|00003690| 40 78 6d 69 6e 0d 66 6f | 72 20 69 20 31 20 36 0d |@xmin.fo|r i 1 6.|
|000036a0| 20 20 20 20 76 65 63 74 | 6f 72 20 40 78 20 40 79 |    vect|or @x @y|
|000036b0| 6d 69 6e 20 40 78 20 40 | 79 31 0d 20 20 20 20 61 |min @x @|y1.    a|
|000036c0| 6e 6f 74 61 74 65 20 40 | 78 20 40 79 32 20 40 78 |notate @|x @y2 @x|
|000036d0| 0d 20 20 20 20 76 6d 20 | 40 78 20 2b 20 40 64 78 |.    vm |@x + @dx|
|000036e0| 20 3d 20 78 0d 20 20 20 | 20 6e 65 78 74 20 69 0d | = x.   | next i.|
|000036f0| 76 6d 20 40 78 6d 61 78 | 20 2d 20 40 78 6d 69 6e |vm @xmax| - @xmin|
|00003700| 20 3d 20 79 31 0d 76 6d | 20 40 79 31 20 2f 20 32 | = y1.vm| @y1 / 2|
|00003710| 30 20 3d 20 79 31 0d 76 | 6d 20 40 79 31 20 2a 20 |0 = y1.v|m @y1 * |
|00003720| 33 2e 32 20 3d 20 79 32 | 0d 76 6d 20 40 78 6d 69 |3.2 = y2|.vm @xmi|
|00003730| 6e 20 2b 20 40 79 31 20 | 3d 20 79 31 0d 76 6d 20 |n + @y1 |= y1.vm |
|00003740| 40 78 6d 69 6e 20 2d 20 | 40 79 32 20 3d 20 79 32 |@xmin - |@y2 = y2|
|00003750| 0d 66 6f 72 20 69 20 40 | 62 6f 74 74 6f 6d 20 40 |.for i @|bottom @|
|00003760| 74 6f 70 0d 20 20 20 20 | 76 65 63 74 6f 72 20 40 |top.    |vector @|
|00003770| 78 6d 69 6e 20 40 69 20 | 40 79 31 20 40 69 0d 20 |xmin @i |@y1 @i. |
|00003780| 20 20 20 76 6d 20 40 69 | 20 2a 20 32 2e 33 30 32 |   vm @i| * 2.302|
|00003790| 35 38 35 20 3d 20 74 0d | 20 20 20 20 76 66 20 65 |585 = t.|    vf e|
|000037a0| 78 70 20 40 74 20 74 0d | 20 20 20 20 61 6e 6f 74 |xp @t t.|    anot|
|000037b0| 61 74 65 20 40 79 32 20 | 40 69 20 40 74 0d 20 20 |ate @y2 |@i @t.  |
|000037c0| 20 20 6e 65 78 74 20 69 | 0d 64 65 6c 65 74 65 20 |  next i|.delete |
|000037d0| 76 61 72 69 61 62 6c 65 | 20 79 31 0d 64 65 6c 65 |variable| y1.dele|
|000037e0| 74 65 20 76 61 72 69 61 | 62 6c 65 20 79 32 0d 64 |te varia|ble y2.d|
|000037f0| 65 6c 65 74 65 20 76 61 | 72 69 61 62 6c 65 20 78 |elete va|riable x|
|00003800| 0d 64 65 6c 65 74 65 20 | 76 61 72 69 61 62 6c 65 |.delete |variable|
|00003810| 20 64 78 0d 73 65 74 76 | 61 72 20 6f 6c 64 69 6e | dx.setv|ar oldin|
|00003820| 74 65 72 70 20 40 69 6e | 74 65 72 70 6f 6c 61 74 |terp @in|terpolat|
|00003830| 65 64 0d 69 66 20 40 79 | 63 6f 6c 20 3d 20 31 0d |ed.if @y|col = 1.|
|00003840| 20 20 20 20 69 6e 74 65 | 72 70 6f 6c 61 74 65 66 |    inte|rpolatef|
|00003850| 20 66 61 6c 73 65 0d 63 | 66 20 6c 6e 20 40 79 63 | false.c|f ln @yc|
|00003860| 6f 6c 20 40 79 63 6f 6c | 0d 63 6d 20 40 79 63 6f |ol @ycol|.cm @yco|
|00003870| 6c 20 2f 23 20 32 2e 33 | 30 32 35 38 35 20 3d 20 |l /# 2.3|02585 = |
|00003880| 40 79 63 6f 6c 0d 70 6c | 6f 74 20 40 78 63 6f 6c |@ycol.pl|ot @xcol|
|00003890| 20 40 79 63 6f 6c 20 40 | 73 79 6d 62 6f 6c 0d 63 | @ycol @|symbol.c|
|000038a0| 6d 20 40 79 63 6f 6c 20 | 2a 23 20 32 2e 33 30 32 |m @ycol |*# 2.302|
|000038b0| 35 38 35 20 3d 20 40 79 | 63 6f 6c 0d 63 66 20 65 |585 = @y|col.cf e|
|000038c0| 78 70 20 40 79 63 6f 6c | 20 40 79 63 6f 6c 0d 69 |xp @ycol| @ycol.i|
|000038d0| 66 20 40 79 63 6f 6c 20 | 3d 20 31 0d 20 20 20 20 |f @ycol |= 1.    |
|000038e0| 69 6e 74 65 72 70 6f 6c | 61 74 65 64 20 40 6f 6c |interpol|ated @ol|
|000038f0| 64 69 6e 74 65 72 70 0d | 64 65 6c 65 74 65 20 76 |dinterp.|delete v|
|00003900| 61 72 69 61 62 6c 65 20 | 61 78 65 73 0d 64 65 6c |ariable |axes.del|
|00003910| 65 74 65 20 76 61 72 69 | 61 62 6c 65 20 6f 6c 64 |ete vari|able old|
|00003920| 69 6e 74 65 72 70 0d 64 | 65 6c 65 74 65 20 76 61 |interp.d|elete va|
|00003930| 72 69 61 62 6c 65 20 74 | 6f 70 0d 64 65 6c 65 74 |riable t|op.delet|
|00003940| 65 20 76 61 72 69 61 62 | 6c 65 20 62 6f 74 74 6f |e variab|le botto|
|00003950| 6d 0d 64 65 6c 65 74 65 | 20 76 61 72 69 61 62 6c |m.delete| variabl|
|00003960| 65 20 68 65 69 67 68 74 | 0d 64 65 6c 65 74 65 20 |e height|.delete |
|00003970| 76 61 72 69 61 62 6c 65 | 20 73 79 6d 62 6f 6c 0d |variable| symbol.|
|00003980| 64 65 6c 65 74 65 20 76 | 61 72 69 61 62 6c 65 20 |delete v|ariable |
|00003990| 78 63 6f 6c 0d 64 65 6c | 65 74 65 20 76 61 72 69 |xcol.del|ete vari|
|000039a0| 61 62 6c 65 20 79 63 6f | 6c 0d 72 65 74 75 72 6e |able yco|l.return|
|000039b0| 0d 0d 0d 6c 61 62 65 6c | 20 73 65 70 61 72 61 74 |...label| separat|
|000039c0| 65 0d 27 27 20 27 73 65 | 70 61 72 61 74 65 73 20 |e.'' 'se|parates |
|000039d0| 64 61 74 61 20 69 6e 20 | 61 20 63 6f 6c 75 6d 6e |data in |a column|
|000039e0| 20 69 6e 74 6f 20 74 77 | 6f 20 67 72 6f 75 70 73 | into tw|o groups|
|000039f0| 2c 20 6c 65 73 73 20 74 | 68 61 6e 20 61 6e 64 20 |, less t|han and |
|00003a00| 67 72 65 61 74 65 72 20 | 74 68 61 6e 27 0d 27 27 |greater |than'.''|
|00003a10| 20 27 61 20 67 69 76 65 | 6e 20 74 65 73 74 20 76 | 'a give|n test v|
|00003a20| 61 6c 75 65 27 0d 27 27 | 20 27 61 72 67 75 6d 65 |alue'.''| 'argume|
|00003a30| 6e 74 20 31 3a 20 69 6e | 70 75 74 20 63 6f 6c 75 |nt 1: in|put colu|
|00003a40| 6d 6e 27 0d 27 27 20 27 | 61 72 67 75 6d 65 6e 74 |mn'.'' '|argument|
|00003a50| 20 32 3a 20 6f 75 74 70 | 75 74 20 63 6f 6c 75 6d | 2: outp|ut colum|
|00003a60| 6e 20 6f 66 20 3e 20 76 | 61 6c 75 65 73 27 0d 27 |n of > v|alues'.'|
|00003a70| 27 20 27 61 72 67 75 6d | 65 6e 74 20 33 3a 20 6f |' 'argum|ent 3: o|
|00003a80| 75 74 70 75 74 20 63 6f | 6c 75 6d 6e 20 6f 66 20 |utput co|lumn of |
|00003a90| 3c 20 76 61 6c 75 65 73 | 27 0d 27 27 20 27 61 72 |< values|'.'' 'ar|
|00003aa0| 67 75 6d 65 6e 74 20 34 | 3a 20 74 65 73 74 20 76 |gument 4|: test v|
|00003ab0| 61 6c 75 65 27 0d 72 65 | 66 72 65 73 68 20 66 61 |alue'.re|fresh fa|
|00003ac0| 6c 73 65 0d 63 6f 70 79 | 20 63 6f 6c 20 40 61 72 |lse.copy| col @ar|
|00003ad0| 67 31 20 40 61 72 67 32 | 0d 63 6f 70 79 20 63 6f |g1 @arg2|.copy co|
|00003ae0| 6c 20 40 61 72 67 31 20 | 40 61 72 67 33 0d 66 6f |l @arg1 |@arg3.fo|
|00003af0| 72 20 69 20 31 20 40 72 | 6f 77 73 0d 20 20 20 20 |r i 1 @r|ows.    |
|00003b00| 73 65 74 20 74 20 74 61 | 62 6c 65 20 40 69 20 40 |set t ta|ble @i @|
|00003b10| 61 72 67 31 0d 20 20 20 | 20 69 66 20 20 20 40 74 |arg1.   | if   @t|
|00003b20| 20 20 20 20 3e 20 20 20 | 20 20 40 61 72 67 34 0d |    >   |  @arg4.|
|00003b30| 20 20 20 20 20 20 20 20 | 74 61 62 6c 65 20 20 20 |        |table   |
|00003b40| 20 40 69 20 20 20 20 20 | 40 61 72 67 32 20 20 20 | @i     |@arg2   |
|00003b50| 20 20 4e 61 4e 0d 20 20 | 20 20 69 66 20 20 20 20 |  NaN.  |  if    |
|00003b60| 40 74 20 20 20 20 3c 3d | 20 20 20 20 40 61 72 67 |@t    <=|    @arg|
|00003b70| 34 0d 20 20 20 20 20 20 | 20 20 74 61 62 6c 65 20 |4.      |  table |
|00003b80| 20 20 20 20 40 69 20 20 | 20 20 20 20 40 61 72 67 |    @i  |    @arg|
|00003b90| 33 20 20 20 20 4e 61 4e | 0d 20 20 20 20 6e 65 78 |3    NaN|.    nex|
|00003ba0| 74 20 69 0d 64 65 6c 65 | 74 65 20 76 61 72 69 61 |t i.dele|te varia|
|00003bb0| 62 6c 65 20 74 0d 72 65 | 74 75 72 6e 0d 0d 0d 6c |ble t.re|turn...l|
|00003bc0| 61 62 65 6c 20 73 74 69 | 63 6b 70 6c 6f 74 0d 27 |abel sti|ckplot.'|
|00003bd0| 27 20 27 70 6c 6f 74 20 | 6f 66 20 76 65 72 74 69 |' 'plot |of verti|
|00003be0| 63 61 6c 20 73 74 69 63 | 6b 73 27 0d 27 27 20 27 |cal stic|ks'.'' '|
|00003bf0| 61 72 67 75 6d 65 6e 74 | 20 31 20 69 73 20 61 62 |argument| 1 is ab|
|00003c00| 63 69 73 73 61 20 63 6f | 6c 75 6d 6e 27 0d 27 27 |cissa co|lumn'.''|
|00003c10| 20 27 61 72 67 75 6d 65 | 6e 74 20 32 20 69 73 20 | 'argume|nt 2 is |
|00003c20| 6f 72 64 69 6e 61 74 65 | 20 63 6f 6c 75 6d 6e 27 |ordinate| column'|
|00003c30| 0d 72 65 66 72 65 73 68 | 20 66 61 6c 73 65 0d 63 |.refresh| false.c|
|00003c40| 6d 20 40 61 72 67 32 20 | 2f 23 20 32 2e 30 20 3d |m @arg2 |/# 2.0 =|
|00003c50| 20 40 61 72 67 32 0d 76 | 62 61 72 73 20 40 61 72 | @arg2.v|bars @ar|
|00003c60| 67 31 20 40 61 72 67 32 | 20 40 61 72 67 32 0d 63 |g1 @arg2| @arg2.c|
|00003c70| 6d 20 40 61 72 67 32 20 | 2a 23 20 32 2e 30 20 3d |m @arg2 |*# 2.0 =|
|00003c80| 20 40 61 72 67 32 0d 76 | 65 63 74 6f 72 20 40 78 | @arg2.v|ector @x|
|00003c90| 6d 69 6e 20 30 20 40 78 | 6d 61 78 20 30 0d 72 65 |min 0 @x|max 0.re|
|00003ca0| 74 75 72 6e 0d 0d 0d 6c | 61 62 65 6c 20 74 72 61 |turn...l|abel tra|
|00003cb0| 6e 73 70 6f 73 65 0d 27 | 27 20 27 74 72 61 6e 73 |nspose.'|' 'trans|
|00003cc0| 70 6f 73 65 64 20 72 6f | 77 73 20 61 6e 64 20 63 |posed ro|ws and c|
|00003cd0| 6f 6c 75 6d 6e 73 20 6f | 66 20 61 20 74 61 62 6c |olumns o|f a tabl|
|00003ce0| 65 27 0d 72 65 66 72 65 | 73 68 20 66 61 6c 73 65 |e'.refre|sh false|
|00003cf0| 0d 73 65 74 76 61 72 20 | 6f 6c 64 72 6f 77 73 20 |.setvar |oldrows |
|00003d00| 40 72 6f 77 73 0d 73 65 | 74 76 61 72 20 6f 6c 64 |@rows.se|tvar old|
|00003d10| 63 6f 6c 73 20 40 63 6f | 6c 73 0d 69 66 20 40 72 |cols @co|ls.if @r|
|00003d20| 6f 77 73 20 3c 20 40 6f | 6c 64 63 6f 6c 73 0d 20 |ows < @o|ldcols. |
|00003d30| 20 20 20 72 6f 77 73 20 | 40 6f 6c 64 63 6f 6c 73 |   rows |@oldcols|
|00003d40| 0d 69 66 20 40 63 6f 6c | 73 20 3c 20 40 6f 6c 64 |.if @col|s < @old|
|00003d50| 72 6f 77 73 0d 20 20 20 | 20 63 6f 6c 73 20 40 6f |rows.   | cols @o|
|00003d60| 6c 64 72 6f 77 73 0d 69 | 66 20 40 6f 6c 64 72 6f |ldrows.i|f @oldro|
|00003d70| 77 73 20 3e 3d 20 40 6f | 6c 64 63 6f 6c 73 20 38 |ws >= @o|ldcols 8|
|00003d80| 0d 20 20 20 20 66 6f 72 | 20 69 72 6f 77 20 31 20 |.    for| irow 1 |
|00003d90| 40 6f 6c 64 72 6f 77 73 | 0d 20 20 20 20 66 6f 72 |@oldrows|.    for|
|00003da0| 20 69 63 6f 6c 20 31 20 | 40 69 72 6f 77 0d 20 20 | icol 1 |@irow.  |
|00003db0| 20 20 20 20 20 20 73 65 | 74 20 78 20 74 61 62 6c |      se|t x tabl|
|00003dc0| 65 20 40 69 72 6f 77 20 | 40 69 63 6f 6c 0d 20 20 |e @irow |@icol.  |
|00003dd0| 20 20 20 20 20 20 73 65 | 74 20 79 20 74 61 62 6c |      se|t y tabl|
|00003de0| 65 20 40 69 63 6f 6c 20 | 40 69 72 6f 77 0d 20 20 |e @icol |@irow.  |
|00003df0| 20 20 20 20 20 20 74 61 | 62 6c 65 20 40 69 72 6f |      ta|ble @iro|
|00003e00| 77 20 40 69 63 6f 6c 20 | 40 79 0d 20 20 20 20 20 |w @icol |@y.     |
|00003e10| 20 20 20 74 61 62 6c 65 | 20 40 69 63 6f 6c 20 40 |   table| @icol @|
|00003e20| 69 72 6f 77 20 40 78 0d | 20 20 20 20 20 20 20 20 |irow @x.|        |
|00003e30| 6e 65 78 74 20 69 63 6f | 6c 0d 20 20 20 20 20 20 |next ico|l.      |
|00003e40| 20 20 6e 65 78 74 20 69 | 72 6f 77 0d 69 66 20 40 |  next i|row.if @|
|00003e50| 6f 6c 64 72 6f 77 73 20 | 3c 20 40 6f 6c 64 63 6f |oldrows |< @oldco|
|00003e60| 6c 73 20 38 0d 20 20 20 | 20 66 6f 72 20 69 63 6f |ls 8.   | for ico|
|00003e70| 6c 20 31 20 40 6f 6c 64 | 63 6f 6c 73 0d 20 20 20 |l 1 @old|cols.   |
|00003e80| 20 66 6f 72 20 69 72 6f | 77 20 31 20 40 69 63 6f | for iro|w 1 @ico|
|00003e90| 6c 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 78 20 |l.      |  set x |
|00003ea0| 74 61 62 6c 65 20 40 69 | 72 6f 77 20 40 69 63 6f |table @i|row @ico|
|00003eb0| 6c 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 79 20 |l.      |  set y |
|00003ec0| 74 61 62 6c 65 20 40 69 | 63 6f 6c 20 40 69 72 6f |table @i|col @iro|
|00003ed0| 77 0d 20 20 20 20 20 20 | 20 20 74 61 62 6c 65 20 |w.      |  table |
|00003ee0| 40 69 72 6f 77 20 40 69 | 63 6f 6c 20 40 79 0d 20 |@irow @i|col @y. |
|00003ef0| 20 20 20 20 20 20 20 74 | 61 62 6c 65 20 40 69 63 |       t|able @ic|
|00003f00| 6f 6c 20 40 69 72 6f 77 | 20 40 78 0d 20 20 20 20 |ol @irow| @x.    |
|00003f10| 20 20 20 20 6e 65 78 74 | 20 69 72 6f 77 0d 20 20 |    next| irow.  |
|00003f20| 20 20 20 20 20 20 6e 65 | 78 74 20 69 63 6f 6c 0d |      ne|xt icol.|
|00003f30| 72 6f 77 73 20 40 6f 6c | 64 63 6f 6c 73 0d 63 6f |rows @ol|dcols.co|
|00003f40| 6c 73 20 40 6f 6c 64 72 | 6f 77 73 0d 64 65 6c 65 |ls @oldr|ows.dele|
|00003f50| 74 65 20 76 61 72 69 61 | 62 6c 65 20 78 0d 64 65 |te varia|ble x.de|
|00003f60| 6c 65 74 65 20 76 61 72 | 69 61 62 6c 65 20 79 0d |lete var|iable y.|
|00003f70| 72 65 74 75 72 6e 0d 0d | 0d 0d 6c 61 62 65 6c 20 |return..|..label |
|00003f80| 7a 61 70 70 65 72 0d 27 | 27 20 27 79 6f 75 20 63 |zapper.'|' 'you c|
|00003f90| 6c 69 63 6b 20 6f 6e 20 | 74 68 65 20 67 72 61 70 |lick on |the grap|
|00003fa0| 68 69 63 73 20 73 63 72 | 65 65 6e 27 0d 27 27 20 |hics scr|een'.'' |
|00003fb0| 27 74 6f 20 63 68 61 6e | 67 65 20 74 68 65 20 76 |'to chan|ge the v|
|00003fc0| 61 6c 75 65 20 6f 66 20 | 61 20 74 61 62 6c 65 20 |alue of |a table |
|00003fd0| 65 6e 74 72 79 20 20 74 | 6f 20 74 68 65 20 63 75 |entry  t|o the cu|
|00003fe0| 72 73 6f 72 20 70 6f 73 | 27 0d 27 27 20 27 61 72 |rsor pos|'.'' 'ar|
|00003ff0| 67 75 6d 65 6e 74 20 31 | 20 69 73 20 74 68 65 20 |gument 1| is the |
|00004000| 6f 72 64 69 6e 61 74 65 | 20 63 6f 6c 75 6d 6e 27 |ordinate| column'|
|00004010| 0d 27 27 20 27 69 6e 74 | 65 72 70 6f 6c 61 74 65 |.'' 'int|erpolate|
|00004020| 64 20 74 61 62 6c 65 73 | 20 6f 6e 6c 79 27 0d 27 |d tables| only'.'|
|00004030| 27 20 27 70 72 6f 63 65 | 64 75 72 65 20 6d 75 73 |' 'proce|dure mus|
|00004040| 74 20 62 65 20 61 62 6f | 72 74 65 64 20 66 72 6f |t be abo|rted fro|
|00004050| 6d 20 74 68 65 20 6d 65 | 6e 75 27 0d 72 65 66 72 |m the me|nu'.refr|
|00004060| 65 73 68 20 66 61 6c 73 | 65 0d 73 63 61 6c 65 20 |esh fals|e.scale |
|00004070| 31 20 32 0d 6c 61 62 65 | 6c 20 7a 61 70 70 65 72 |1 2.labe|l zapper|
|00004080| 2d 6c 6f 6f 70 0d 63 6c | 65 61 72 0d 70 6c 6f 74 |-loop.cl|ear.plot|
|00004090| 20 31 20 40 61 72 67 31 | 0d 63 75 72 73 6f 72 20 | 1 @arg1|.cursor |
|000040a0| 27 70 69 63 6b 20 61 20 | 70 6f 69 6e 74 27 0d 76 |'pick a |point'.v|
|000040b0| 66 20 72 6f 77 20 40 78 | 70 6f 73 20 78 70 6f 73 |f row @x|pos xpos|
|000040c0| 0d 74 61 62 6c 65 20 40 | 78 70 6f 73 20 40 61 72 |.table @|xpos @ar|
|000040d0| 67 31 20 40 79 70 6f 73 | 0d 67 6f 74 6f 20 7a 61 |g1 @ypos|.goto za|
|000040e0| 70 70 65 72 2d 6c 6f 6f | 70 0d 72 65 74 75 72 6e |pper-loo|p.return|
|000040f0| 0d 0d 6c 61 62 65 6c 20 | 7a 70 62 0d 6c 61 62 65 |..label |zpb.labe|
|00004100| 6c 20 7a 65 72 6f 70 68 | 61 73 65 62 61 6e 64 70 |l zeroph|asebandp|
|00004110| 61 73 73 0d 27 27 20 27 | 6c 69 6b 65 20 62 61 6e |ass.'' '|like ban|
|00004120| 64 70 61 73 73 2c 20 62 | 75 74 20 7a 65 72 6f 20 |dpass, b|ut zero |
|00004130| 70 68 61 73 65 20 61 6e | 64 20 72 6f 6c 6c 6f 66 |phase an|d rollof|
|00004140| 66 20 74 77 69 63 65 20 | 61 73 20 66 61 73 74 27 |f twice |as fast'|
|00004150| 0d 27 27 20 27 73 61 6d | 65 20 61 72 67 75 6d 65 |.'' 'sam|e argume|
|00004160| 6e 74 73 20 61 73 20 62 | 61 6e 64 70 61 73 73 20 |nts as b|andpass |
|00004170| 63 6f 6d 6d 61 6e 64 27 | 0d 72 65 66 72 65 73 68 |command'|.refresh|
|00004180| 20 66 61 6c 73 65 0d 62 | 61 6e 64 70 61 73 73 20 | false.b|andpass |
|00004190| 40 61 72 67 31 20 40 61 | 72 67 32 20 40 61 72 67 |@arg1 @a|rg2 @arg|
|000041a0| 33 20 40 61 72 67 34 0d | 72 65 76 65 72 73 65 20 |3 @arg4.|reverse |
|000041b0| 40 61 72 67 34 20 40 61 | 72 67 34 0d 62 61 6e 64 |@arg4 @a|rg4.band|
|000041c0| 70 61 73 73 20 40 61 72 | 67 31 20 40 61 72 67 32 |pass @ar|g1 @arg2|
|000041d0| 20 40 61 72 67 34 20 40 | 61 72 67 34 0d 72 65 76 | @arg4 @|arg4.rev|
|000041e0| 65 72 73 65 20 40 61 72 | 67 34 20 40 61 72 67 34 |erse @ar|g4 @arg4|
|000041f0| 0d 72 65 74 75 72 6e 0d | 0d 0d 0d 0d 0d 0d 00 00 |.return.|........|
|00004200| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00004210| 00 00 00 00 03 4d 61 79 | 00 00 00 00 00 00 00 00 |.....May|........|
|00004220| 00 00 00 00 04 4a 75 6e | 65 00 00 00 00 00 00 00 |.....Jun|e.......|
|00004230| 11 55 73 65 66 75 6c 20 | 50 72 6f 63 65 64 75 72 |.Useful |Procedur|
|00004240| 65 73 02 00 00 00 50 61 | 72 74 53 49 54 78 00 00 |es....Pa|rtSITx..|
|00004250| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00004260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004270| 00 00 a9 80 1d 67 00 00 | 00 00 00 00 01 5c 00 00 |.....g..|.....\..|
|00004280| 00 00 00 00 08 44 65 63 | 65 6d 62 65 72 00 00 00 |.....Dec|ember...|
|00004290| 00 00 00 00 00 ff 00 03 | 00 00 00 00 2c 20 00 00 |........|...., ..|
|000042a0| 20 00 00 00 2c 20 00 00 | 00 00 00 00 00 01 4e 75 | ..., ..|......Nu|
|000042b0| 00 00 06 92 60 0a 00 00 | 57 44 45 46 00 00 00 05 |....`...|WDEF....|
|000042c0| 4e 56 ff f4 48 e7 1f 78 | 20 55 2f 10 20 b8 09 de |NV..H..x| U/. ...|
|000042d0| 47 ee ff f8 2f 0b a8 8b | 3e 1b de 5b 58 47 08 c7 |G.../...|>..[XG..|
|000042e0| 00 00 72 13 be 41 6c 0a | 92 47 e2 49 d3 6e ff f8 |..r..Al.|.G.I.n..|
|000042f0| 7e 13 36 c7 30 07 04 40 | 00 0d e2 48 36 80 42 a7 |~.6.0..@|...H6.B.|
|00004300| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 66 00 00 |.......M|onacof..|
|00004310| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00004320| 00 16 00 00 00 46 00 01 | c3 06 02 f2 00 00 00 1c |.....F..|........|
|00004330| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00004340| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 c2 e6 |........|........|
|00004350| 03 ec ff ff 00 00 00 0e | 00 01 c2 e2 00 00 00 00 |........|........|
|00004360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+